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ABSTRACT 


Tey 
; RNS 


THE NUMBER OF BYTES PER BLOCK (RECORD) AND 
THE NUMBER OF BLOCKS PER FILE. 


RE GUIREMENTS 


001 


Oven e COMPUTER WITH OR WITHOUT HARDWARE OF aioe REGISTER 


KITH CONSOLE TELETYPE, AND A TAI: CASSETT 


THIS PROGRAM REGUIRES APPROX. 4K 5S 
PRELIMINARY PROGRAMS 


TORAGE. 


oe Bi ee Pred RE FOR LOADING 


STMFTING PROCEDURE 


.ABS TAPES 


CONTROL SWITCH SETTINGS 


STARTING ADDRESSES 


200 = NORMAL STARTING ADDRESS 
zo> = ss SELECT QRIVE 3) BEFORE STARTING TEST 
2ic 0s SELES? SRivE:S) AND ADDRESSES SEFoR 


STARTING T 


Ss? 


EOL 


PROGRAM $8 OPERATOR ACTION 


LOAD wee INTO MEMORY (SEE SECTION 3.) 
LOAD A WRITE ENABLED CASSETTE IN BOTH DRIVES 


LOAD ADDRESS 
SET SWITCHES (SEE SECTION 4.1) 
PRESS START. 


+## NOTE: IF USING THe SOFTWARE SWITCH REGISTER THE 
he hae gg a ™. nee NEW=" AFTER TYPING 


ORIVE SELECTION 


STARTING THE PROGRAM AT 206 WILL RESULT IN AUTOMATIC 
SELESTION OF DRIVES “A” AND “B" TO BE TESTED. 


STARTING THE PROGRAM AT 204 OR 219 ALLOWS THE OPERATOR 
Te Seces T THE DRIVE(S) TO BE TESTED. 


THE PROGRAM WILL TYPE “DRIVE(S)?". 


28h OR BOTH DRIVES CAN BE SELECTED BY TYPING “A” AND/OR 
"2" FOLLOWED BY A CARRIAGE RETURN. 


un Cte 


. ORIVE SELECTION EXAMPLES 


DRIVE(S)? @,8 ;DRIVES A AND 8 SELECTED 
DRIVE(S)? AB ;DRIVES @ AND 8 SELECTED 
DRIVE(S)? 8. DRIVES B AND A SELECTED 
DRIVES)? 8 DRIVE B SELECTED 

DSIvE =)? Se ‘DRIVE $ 15, IMPOSSIBLE 
DRIVE(S)? :ASK FOR DRIVE 


FOL 


RODRESS SELECTION 
STARTING THE PROGRAM AT 210 ALLOWS THE OPERATOR 
“CONTROL _AND STATUS” AND “DATA BUFFER” 


ee 
REGISTER CER ADDRESSES, THE VECTOR ADDRESS AND THE 
PRIORITY LEVEL. 


7}. 1. AFTER THE ORIVES HAVE BEEN SeLEcTEO YY AYLI ASK’ 


eer oe aon ¥ THE CONTROL AND STATUS REGISTER (TACS) 

PRIORITY LEVEL 

AND THE Gare oe MUST mice WITH yi DESIRED PARAMETER 
ARRIAGE RETURN ( E AS IS). 


tutuers 


N 

mae Bis 3 THEM BACK OUT AND ASK IF THEY athe OK_AT 
WHICH TIME THE OPERATOR RESPONSES WITH A 
ACARRIAGE RETURN” FOR “YES” ANYTHING ELSE ts A “NO”. 


ADDRESS SELECTIGN EXAMPLES 


an 


OPERATING PROCEDURE 


REGISTER THEN A SOFT Wee SWITCH REGISTER IS USED WHICH ALLOWS 
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER. 
cn * HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 

T CONTAINS ALL oes £ hihi THEN THE SOFTWARE SWITCH 
8 CrSTER (LOC. 176) IS U 


CONTROL: 

THIS PROGRAM ALSO SUFPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 

DOING THE FOLLOWING: 


1) TYPE CONTROL G <#G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC. 178 AT SELECTED POINTS WITHIN THE PROGRAM. 


=) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS 


OF THE SOFTWARE SWITCH REGISTER. ) 


3) SOFTER THE ’*NEW=**’ HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
{ONL IC Be ALLOWED) BETWEEN O-7 WILL BE ACCEPTED AND ONLY & NUMBERS 


WILL 
IF > IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


B) IF A CONTROL U <tU> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP e. 


WITH SW<1S:10>=0 THE PROGRAM WILL PRINT OUT ON 
Fins ORS AND CONTINUE IN TEST. 
THE SWITCH SETTINGS ARE: 


SW<‘15)=1...HALT ON ERROR 


SW<14>=1.. LOOP ON TEST 
SH:13)=1... INMIBIT ERROR. TYPEOUTS 
SW<i0>=1:°RING BELL ON ERROR 
SH¢O8 >=]. “HALT AFTER NEXT “ENDwQF-TEST" TYPEQUT 
SW<D)=1.lAT NEXT “END-OF-TAPE™ ‘EOT) GO TO “END-OF-TEST™ 
Su‘57)=1.. PERFORM PASS AS PER SWR<1:0) 

1:0>=00=FORMAT 


One 0>=O01=READ ONLY 
SWR‘1:0>=1O0=WRITE ONLY 
SWR<1:OQ>=L1L=READ ONLY 


I01 


SUBROUTINE ABSTRACTS 


uw 
fu 


un 
fu 
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THIS SUBROUTINE CALL (VIA AN IOT INSTRUCTION) IS PLACED 
AT AN OPTIMUM POSITION IN i BIS TRUETEON SECTION OF THE 
“FORMAT”, “READONLY” AND “WRITEONLY” 
IF SWR<14>=) THE PROGRAM WILL LOOP THROUGH A SPECIFIC 
SEQUENCE DEPENDING ON THE TYPE OF PASS BEING PERFORMED. 
### THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 
FORMAT PASS SCOPE LOOP 
1. SETUS FOR A WRITE 

WRITE 


BACKSPACE BLOCK GAP 
SETUP FOR A READ 


READ 
REPEAT STEPS 1-S UNTIL “EOT” 
2.2.1.2 READONLY PASS SCOPE LOOP 

1. SETUP FOR REAC 

3. CHECK FOR SYNC 8 DATA ERROR 

4. BACK SPACE BLOCK 

S. REPEAT STEPS 2-4 INDEFINITELY 
5.2.1.2 WRITEONLY PASS SCOPE LOOP 

1. SETUP FOR WRITE 

3. REPERT STEP 2 UNTIL “EOT" 
£.2.2 TRAPCATCHER 


é ".%e = “HALT” te tH) REPEATED FROM LOC. 0 TO LOC. 776 
TG CATCH ANY UNEXPECTED TRAPS. THUS, ANY UNEXPECTED TRAPS WILL 
HALT AT THE DEVICE TRAP VECTOR +2. 
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ERROR 


THIS SUBROUTINE CALL (VIA A EMT INSTRUCTION) IS USED TO REPORT 
ALL ERRORS. (REFER TO &.) 


TRAP 


R NUMBER OF SYBROUTINGS ARE CALLED BY THE TRAP INSTRUCTION. 
FOLLOWING IS THE CALLS USED AND THE STARTING ADDRESS OF THE 


TYPE (STYPE) 

TYPE AN ASCIZ STRING ON THE TTY 
ROCHR ( SROCHR } 

READ A SINGLE ASCII CHARACTER FROM THE TTY 
ROLIN< SROLIN3 

READ AN ASCII STRING FROM THE TTY 


— — ee 


—s— swe 


_—-* 


— as ee 


— sme 
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wn 
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fm 
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wo 


ww 


THIS ROUTINE CHANGES AN ASCII STRING TO AN OCTAL NUMBER. 


ASKDRY 


THIS ROUT ITS 1s USED TO ASK THE OPERATOR WHICH DRIVE(S) 
RARE TO BE TESTED 


ASKADR 


THIS ROUTINE IS USED TO INPUT THE ADDRESSES OF THE “TACS” 
AND THE VECTOR TO USE. 


TYPERR 
THIS ROUTINE IS USED TO TYPE OUT THE “ERROR” DATA 
CSRERR 
THIS ROUTINE IS USED WHEN AN ERROR 
DETECTED. 
ND ER 
DETERMINE THE TYPE OF ERROR AND 
TAKE THE APPROPRIATE ACTION. 
SE TUPW 
THIS ROUTINE IS a TQ hs THE 
PARAMETER BLOCK AND THE W 
BUFFER BEFORE STARTING A SURTTE" FUNCTION 
FILL 


USE TO FILL THE WRITE BUFFER 
WITH A DATA PATTERN. 


SETUPR 


THIS ROUTINE IS USED TO SETUP THE 
PARAMETER BLOCK BEFORE DOING A 
“READ” FUNCTION. 


SYNCK 


THIS aR IS CALLED AFTER 
PREFORMING A “READ”. 

IT CHECKS THE FIRST FOUR BYTES 
OF THE DATA TO INSURE THAT THEY 
CONTAIN THE PROPER FILE AND 
BLOCK NUMBERS. 
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. 10 DATCMP 


THIS ROUTINE IS USED TO CHECK THE 
DATA_IN THE READ BUFFER TO INSIJRE 
IT IS CORRECT. 


.11 CNTSFT 


THIS ROUTI eI S USED TO 
COUNT SOFT Bata ERRORS 


12 CNTHRD 


THIS ROUTINE IS USED TO 
COUNT HARD DATA ERRORS 


.13 SAVYRGI OR SAVREG 


ROUTINE TO SAVE ALL THE REGISTERS 


.14 CASSETTE PRIMITIVE 


THIS IS THE CASSETTE DRIVER 


.15 CASINT 

CASSETTE INTERRUPT HANDLER 
.1& DBCD 

NUMBER TO A DECIMAL ASCIZ STRING 
1? SBCD 


CHANGES A SINGLE LENGTH BINARY 
NUMBER TO A DECIMAL ASCIZ STRING. 


. 18 SUPRES 


TYPES A DECIMAL ASCII STRING 
SUPPRESSING LEADING ZEROS. 


19 TYPF 


USED TO TYPE THE ASCIZ STRING 
IMMEDIATELY FOLLOWING THE CALL. 


.20 TPORV 


TYPES THE DRIVE 70 BE TESTED 


~B. EXAM 


THIS ROUTINE EXAMINES THE SELECTED DRIVES 
TO INSURE THEY ARE AVAILABLE FOR TESTING. 


.2& SB20CT 


TYPES AN OCTAL NUMBER 
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ERRORS 


Hace Bh ARE A hy 4 4 on ts ON bana TERED “rc a “ 


a ee: sa sae a m Come "sgt 


WILL CONTAIN THE FOLLOWING: 


1. AN ERROR MESSA 
2. A DATA HEADER 
3. A DATA STRING 


REFER TO THE LISTING UNDER SERRTB FOR THE DIFFERENT 
ERRORS THAT CAN OCCUR. 


ERROR TYPES 


THE ERRORS THAT OCCUR IN THIS PROGRAM FALL INTO THREE 
(3) CATEGORIES DEFINED AND EXPLAINED AS FOLLOWS: 


PRETEST ERROR 


T RRORS WILL BE DETECTED BEFORE TRYING TO TEST 
THE BATA RELTAB HErty 6 THE TA11/TUBO. 


NON-FATAL ERROR 


THESE ERRORS WILL BE DUE TO “CRC” OR “DATA” FAILURES 
WHICH WILL BE REPORTED AS THEY OCCUR. AFTER REPORTING 
THE ERROR THE PROGRAM WILL CONTINUE TESTING. 


FATAL ERROR 


THIS TYPE OF ERROR WILL BE THE RESULT OF ANY KIND 
OF ERROR THAT CAUSES THE PROGRAM TO LOSE TRACK OF THE TAPE 
aes OR THE MAXIMUM NUMBER OF DATA ERRORS HAVE 


THIS ERROR WILL BE REPORTED WHEN IT OCCURS, THEN THE PROGRAM 
WILL ABORT THE TEST AND GO TO THE “END-OF-TEST” TYPEOUT. 


DATA ERRORS 


WERE ARE TWO yer, OF DATA ERRORS 
THAT CAN OCCUR WHICH 
DEFINED AND EXPLAINED AS FOLLOWS: 


SOFT ERROR 
A SOFT ERROR IS BY DEFINITION ANY “CRC” OR gS natar DATR” 


jets: THAT OCCURS WHILE READING A BLOCK OF 
® SOFT ERROR WILL INVOKE A REREAD OF THE BLOCK. 
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tw 
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HARD ERROR 


A HARD ERROR IS DEFINED AS ANY 
on he OR “READ DATA” ERROR i OCCURS 
INITIAL READ OF A BL 


odes PEFR GEE "Sacre. 


ERROR RECOVERY 


PRETEST ERROR 


WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED. THEN DEPENDING 
ON HOW THE PROGRAM WAS STARTED IT WILL ASK FOR THE DRIVES AND 
ADDRESSES FOR TESTING OR RETURN TO MONITOR. 


NON-FATAL ERROR 


WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED AND 
THE PROGRAM WILL CONTINUE IN TEST. 


FATAL ERROR 


WHEN THIS TYPE GF ERROR OCCURS IT WILL BE REPORTED. THE 
PROGRAM WILL ABORT THE TEST AND GO TO THE “END-OF-TEST” TYPEOUT. 


RESTRICTIONS 


BEFORE STARTING THE PROGRAM THE OPERATOR MUST INSURE THAT A 
y yi ae IS vena AND WRITE ENABLED IN THE DRIVE(S) 


MISCELLANEOUS 


TESTING THE TAL1/TU6BO TO SPECIFICATION TAKES APPROXIMATELY 
& HOURS 30 MINUTES WITH EACH DRIVE TAKING 75 MINUTES. 


STACK POINTER 


STACK IS INITIALLY SET TO 1100. 


8.3 


8.3.1 


8.4 


8.4.1 


6.4.1.2 


END OF TEST 


WITH ALL SWITCHES ON A “O” THE END OF TEST a. Uy OCCUR 
WHEN THE COMPLETES 18 TAPE PASSES FROM “BOT” TO 
“EOT" ON THE DRIVE UNDER TEST OR A FATAL ERROR OCCURS. 


EXAMPLE OF AN END-OF TEST TYPEOUT 
##% END-OF-TEST 22% 
SOFT ERRORS=0 


HARD =0 
BYTES READ=1471488 
eves er — 


TAPE PAS 
FILES/PaSS=12 
BLOCKS/FILE=16 


DRIVE COMPATIBILITY 


THE EL a nee DRIVES CAN BE _TESTED BY 
DOING A T™ PASS ON ONE DRIVE AND THEN READING IT 
ON ANOT! HER DRIVE. 


DRIVE COMPATIBILITY PROCEDURE EXAMPLE 81 


THIS EXAMPLE FORMATS ON DRIVE A AND READS FROM DRIVE 8 
“FORMAT” DRIVE “A” 


PLACE A WRITE ENABLED TAPE IN DRIVE “A” 
INSURE DRIVE “B™ IS EMPTY 
LOAD ADDRESS 200 

SWO3 a SWOB TO "1" ALL OTHERS TO “0” 


SET 

PRESS STAR 

PROGRAM W ILL PERFORM A oo ie Enss ON DRIVE “A”, TYPE 
"END-OF - TEST STATISTICS AND HAi 


“READ” DRIVE “B” 


REMOVE THE TAPE FROM DRIVE “A” AND PLACE IT IN DRIVE “8” 
LOAD ADDRESS 200 
SET ss SWO8, SWO7 AND SWOO TO A “1” ALL OTHERS 


TO 

PRESS START 

PRO WILL PERFORM A “READONLY” PASS ON DRIVE 
"BY, TYPE “END-OF-TEST” STATISTICS AND HALT. 
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ORIVE COMPATIBILITY PROCEDURE EXAMPLE #2 


THIS EXAMPLE READS KNOWN GOOD TAPE‘S) 


l. 


2. LOAD ADDRESS 

3: SET SWOg, SWO? AND SWOO TO A "1" ALL OTHERS 

4. PRESS START 

S: PROGRAM WILL PERFORM A "READONLY" PASS AND TYPE 
"END-OF-TEST™ STATISTICS ON DRIVE(S) TO BE TESTED. 

DATA FORMAT 


THE DATA FORMAT USEC IN THI 
APPROXIMATELY ELEVEN (11) F 
ON TAPE. 


PLACE THE KNOWN GOOD TAPE(S) IN THE DRIVE (5) TO 
BE TESTED. (NCTE: IT NIGHT BE WISE TO HAVE THE 
TAPE(S) WRITE LOCKED. ) 


; PROGRAM WILL Re U! IN 


FILE STRUCTURE 


EACH FILE WILL CONSIS 
EACH BLOCK CONTAINING AN 


T OF N (3 
GUE DATA PATTERN 


Sun 


BLOCK STRUCTURE 


rr OK WILL HAVE AN “ID” CODE AS ys, FIRST FOUR (4) 
BL 


OF DATA. THIS “IO” WILL BE THE FILE NUMBER AND 
AND THEIR COMPLE 


BYTES FOR THE LENGTH OF THE 8 
BLOCK SIZE AND PATTERN 


BLOC BLOCK 
NUMBER SIZe PATTERN 


& 
> 


- LOG - 
Mie LOG £ 


*-Coruter- Oru rue- 


Goer 


OCK _NUMBE THEIR MENTS. THE DATA FOLLOWING 
THE “ID” IS @ PATTERN THAT 9 4h ITSELF EVERY EIGHT (8) 


LES OF 8192 BYTES TO BE WRITTEN 


&) B.ocKs OF DATA, WITH 


wy 


2sé 


1024 


lll 


fue-CotaTUe- 
NOUN £ Goru 
NOU £tor 


tuWururue-s-OO ty 
SW rude £09 
UO TUN £0 


DO 


to 
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lw 
fu 
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co 


BLOCK 
PATTERN 


EQ 


13 1024 
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+s 
tw 
fu 


TEST TYPEOU 


THE FOLLOWING EXAMPLE SHOWS A TYP 
DRIVES WERE TESTED AND NO ERRORS 


° 
k 
s) 


CA 
cc 


L TYPEOUT WHERE 507 
URRED. 


FO 


MAINDEC-11-DZTAE-A 


DRIVE A AND DRIVE 
#4% FORMAT ##% DR 


IiL BE TESTED 


Ta taaratatate) 


<= <= 
mmr 
DYOYVDVYOYOVMVI PV PY YPYV PPV YVPSE 


*4% READ 2% DRIVE 


##% END-OF-TEST 22x 
SOFT ERRORS=0 

HARD ERRORS=0 

BYTES READ=1476608 
BYTES WRITTEN=370209 
T PaSSES=168 


> 
FILES/PASS=12 
BLOCKS/FILE=16 


#££ FORMAT ### DRIVE B 
#£* READ ##% DRIVE B 


*£% READ #£% DRIV’ 


m 


#£% FORMAT *## DRI 

#£* READ #84 DRI 

#£# READ #4 DRIV 
#£% READ 
##* WRITE £4 DRIV 
##%# READ #48 DRIV’ 
#44 READ #&£# DRIV 
### READ 
#4#% REGD #44 DRIVE 


### END-OF-TEST ### 
SOFT ERRORS= 

HARD ERRORS=0 

BYTES READ=150409¢ 
BYTES WRITTEN=37E862 
T ASSES=j 
FILES/PASS=1e 

BLOCKS /FILE=iE 
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PROGRAM DESCRIPTION 


THIS PROGRAM IS DESIGNED AROUND THREE PRIMARY ROUTINES 
oy a Pt bb eee DATA 1 pe’ 44 Thee i, TA11/TUBO 


Q “EOT OF THESE 
SUEUR ARE Ea PLING OH 
THESE ROUTINES Are DEF INED AND mates BELOW. 


FORMAT PASS 


THIS IS A WRITE, BACKSPACE AND READ ROUTINE STARTING AT 
"BOT" THE FOLLOWING PROCEDURE IS PREFORMED: 


WRITE A BLOCK OF DATA 
ee Pe GAP 


AD THE BL 
HECK FOR SYNC ERROR 
REPEAT STEPS 1-5 SIXTEEN TIMES 
WRITE A FILE GAP 
REPEAT STEPS 1-7 UNTIL “EOT™ 


WRITEONLY PASS 


OnNMULE ture 
OOD 
22m 
oO 
Be” 

“ny 
oO 
+4 


THIS IS A WRITE ONLY ROUTINE. STARTING AT “BOT" THE 
FOLLOWING PROCEDURE IS PREFORMED: 


1. WRITE SIXTEEN BLOCKS OF DATA 
. WRITE A FILE GAP 
3. REPEAT STEPS 1 8 2 TO “EOT” 


READONLY PASS 


THIS IS A READ a ROUTINE AND REQUIRES THAT A “FORMAT” 
OR "WRITEONLY” PASS HAS ALREADY BEEN PREFORMED. STARTING 
AT “BOT” THE "FOLLOWING PROCEDURE IS PREFORMED: 


READ A BLOCK OF DATA 


ERROR 
REBEAT STEPS 1-3 SIXTEEN (16) TIMES 
SPACE FORWARD FILE GAP 
PEPEAT STEPS 1-S UNTIL THE LAST BLOCK 
OF THE LAST FILE HAS BEEN READ. 


Mun £ oof 
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OPERATIONAL SWITCH SETTINGS 
-SBTTL OPERATIONAL SWITCH SETTINGS 


ee 


eee te eee te re ee re re Te 


SWITCH 


we = ERROR 
Thre ERR 1 ERROR eben’ 
HALT PETER ONEXT “END-OF - i) a OUT 


AT NEXT “EOT" GOTO “END-OF 
PERFORM A Fen mts 1:0) 


-SBTTL BASIC DEFINITIONS 


STAC 


EQuIY 


ENT ERROR 


“EQUIV IOT;SCOPE 
1 ates | Ya DEFINITIONS 


it= 
LF= i 
CR= 15 
CRLF 200 
PS= 1777 
EGUIV PS,PSW 
STKLMT= 177774 
RQ 17777 
DSWR= 7757 
DDISP= 177570 
RO= %0 
Rl= %1 
Re= %2 
R3= %3 
RY¥= r4 
RS= “5 
R6= %6 
R7= 47 
SP= “6 
C= 47 
-*PRIORITY LEVEL DEFINITIONS 
Pro= so 
PRi= 10 
PRe= 100 
PR3= 140 
PR¥= a8) 
PRS= 40 


pope tame, we OF THE STACK POINTER ### 1100 ### 


;;BASIC DEFINITION OF ERROR CALL 
;;BASIC DEFINITION OF SCOPE CALL 


;;CODE FOR HORIZONTAL TAB 
3 #CODE FOR LINE FEED 

E FOR CARRIAGE RETU 
: CODE FOR CARRIAGE RETURN-L INE FEED 
;;PROCESSOR STATUS WORD 


fh ee REGISTE! 
; ; PROGRAM aM Ay RUPT 7 REQUEST REGISTER 
; ; HARDWARE My TCH 

; ; HARDWARE BiSPLAY REGISTER 


; *GENERAL PURPOSE REGISTER DEFINITIONS 
NE REG 


; GENE REGI 
t STACK POINTER 
;;PROGRAM COUNTER 


;PRIORITY LEVEL 
H BaigaTTy LEVEL 
RITY LEV [ ; 


HBRIRITY LEVEE 3 


02 

L. 

TA11 DATA RELIABILITY  MAINDEC-11-DZTAE-C MACY11 27(1006) 17-MAR-77 14:55 PAGE 3 
OZTAEC Pil 17-MAR-77 14:52 BASIC DEFINITIONS 


113 090300 PRb= «3300 :;PRIORITY LEVEL 6 

114 000340 PR7= 340 : PRIORITY LEVEL 7 

116 “a Sai nal SWITCH DEFINITIONS 
d = 

118 Agena Wil4= 4O80 

119 020000 SWi3= 20000 

| a ie 

154 3509 aids 2000 

123 001000 Swos= 1000 

124 0400 Swos= 400 

125 0200 cwO7= 200 

126 000100 SwOb= 100 

127 00040 SWOS= 

2g 000020 SwOo4= 20 

129 900910 SwO3= 10 

130 oooc04 SWwo2= 

131 oo0002 SWwOl= 2 

132 909001 Swoo= 1 

133 EQUIV SwWO9,SW9 

134 EQUIV Swog; Swe 

13S EQUIV SwWO7, 

136 EQUIV SwWO6,SW6 

137 EQUIV SwWOS,SWS 

138 EQUIV SWO4;SW4 

i139 QUIV SWO3, sW 

140 EQUIV SWO2,SWe 

141 EQUIV SWO1;SWI1 

i4e EQUIV SwOO0;SWO 

144 -¥DATA BIT DEFINITIONS ‘BITOO TO BITIS) 

145 100000 BITIS= 190000 

146 040000 BIT14= 40000 

147 q206 BIT13= 20000 

148 010000 BITl2= 10000 

i49 904900 Blili= 4000 

150 002000 BIT10= 2000 

151 001000 BITO9= 1000 

152 000460 BITO8= 400 

153 000200 BITO7= 200 

154 000100 BITOb= 100 

iss 000040 BITOS= 40 

156 900020 BITOY= 20 

157 000010 BITO3= 16 

158 090004 BITO2= 4 

159 o0000e2 BITOl= 2 

160 o0000! BITOO= 1 

161 “EQUIV B8ITO9,BIT9 

1b2 ‘EQUIV BITO8,BIT8 

163 “EQUIV BITO7,B1T7 

164 “EQUIV BITO6,BITb 

165 “EQUIV BITOS,BITS 

1b “EQUIV BITO4.BITY 

167 “EQUIV BITO3,B1T3 

ee “EQUIV BITO2,BITe2 


TAl1 DATA RELIABILITY 
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169 
170 
134 


15 
174 
175 


= 


~ 


So! 


178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 


~ 


~ 
wm 
(ve) 


BORA LMHS 


+ p> bs 9 9b bs be ee 
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ooo004 


000016 


MAINDEC-11-DZTAE-C 
14:52 


MACY11 27(1006) 
BASIC DEFINITIONS 


-EQUIV BITO1,BIT1 
EQUIV BITOO;}BITO 


c 
17-MAR-77 14:55 PAGE 4 


FR “CPU” TRAP VECTOR DRESSES 


4 
PIROVEC=24 0 


TIME OUT AND OTHER ERRORS 
; RESERVED AND ILLEGAL INSTRUCTIONS 


; ; TRAC TRAP 
‘BREAKPOINT TRAP (BPT) 
; | INPUT/ TPUT TRAP (IOT) **SCOPEX* 


; POWE L 
; ; EMULATOR TRAP (EMT) *##ERROR## 


tI TTY KEYBOARD VECTOR 
:iTTY PRINTER VECTOR 
‘PROGRAM INTERRUPT REQUEST VECTOR 


Ree eee eee eT ert eeeer ei Per eenertrrt ent t eT teneenee 
jsaneseegeeTAll FUNCTIONS &##eeeeeee 


inrone 8 


WRTLOCK= 
F 


ee ee ee a ah) oe 


- 
Pa) 
o 
T 
1 DDDODMDOMHDHDHMOMOWMOMM 
cihad--a~pedpeelednd -aeiadndved 
Pafalafata{atal=tayaferererer ere pey 
OK VWENSIODO-—ww LUD 


GO= 
FUNCTION= 


;WRITE FILE GAP FUNCTION 
FUNCTION 


REWIND FUNCTION 


11 BIT ASSIGNMENT #seeseeeas 


FUNC2+F UNC 1+FUNCO 


TALL DATA RELIABILITY 
DZTAEC.P11 


000174 
000176 


000200 
000204 
000210 


17-MAR-77 1 


o00000 


000174 
000000 
oco000 


000137 
000137 
000137 


me ac oo C MACY11 27(1006) 17-MAR-77 14:SS PAGE S 
4:Se TRAP CATCHER 


001752 
002004 
c0201e 


-SBTTL TRAP CATCHER 


FALL UNUSED LOCATIONS FROM 4 - 776 pe 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERR 
j #LOCATION o. CONTAINS 0 TO CATCH IMPROPERLY 


A”. +e, HALT" 
LOADED VECTORS 


=174 
DISPREG: .WORD 0 ;; SOFTWARE DISPLAY REGISTER 
SWREG: WOR’ ;; SOFTWARE SWITCH REGISTER 


-SBTTL STARTING ADDRESS(ES) 
IMP a#BEGIN1 ;;JUMP TO ST 
JMP deBEGINe ;SEL 
JMP d#BEGIN S 
, HOHE Hee ee 


ARTING ADDRESS OF PROGRAM 
ECT DRIVE(S) BEFORE STARTING T 


TEST 
ELECT DRIVE(S) AND ADDRESSES BEFORE TESTING 


RE SARLLALAAAAALLALKLE 


Tall at RELIABILITY —— 11-DZTAE-C MACY11 27(i006) 17-MAR-77 14:55 PAGE & 
Pil OMMON TAGS 


DZTAEC. 17-MAR-77 14:52 C 
231 .SBTTL COMMON TAGS 
233 $3  SSFSESSASSSRESSSRSASRSASSSASSSSAEREFSLAALASSESFSRSSELAASES LESH LS 
224 ; ATHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
a3 :#USED IN THE PROGRAM 
237 001100 21100 
238 001100 SCMTAG: 5 START OF COMMON TAGS 
239 001100 ooucoo $PASS: .WORD 0 :CONTAINS PASS COUNT 
x0 901192 000 STSTNE: -BYTE 0 i CONTAINS THE TEST NUMBER 
ae itt ocoooa ade HOR 5 conrad ST ITERATION COUNT 
244 001110 ails SL EERR: “WORD 8 Heovraine Score Unt FoR ERRORS 
245 OOllle oo0000 TTL: .WORD O 3s CONTAINS TOTAL ERRORS TECT 
246 001114 000 SITEMB: :BYTE 0 :: CONTAINS ITEM CONTROL 
247 001115 00: : BYTE | ss CONTAINS BAX, ERRORS PER TEST 
248 O01116 000000 SERRPC: WORD 0 ;;CONTAINS PC OF LAST ERROR INSTRUCTION 
248 001120 000000 : .WORD °C >: CONTAINS ADDRESS OF ’GOOD’ DATA 
250 OO0lle2 o00000 OR: WORD O ;;CONTAINS ADDRESS OF "BAD’ DATA 
251 OO0l1e4% 900000 SGDCAT: {WORD O :: CONTAINS ’GOOD’ para 
252 001126 000000 T: .WORD +s CONTRING *BAD’ DATA 
253 091130 o00000 “WORD «6G ‘RESERVED--NOT TO BE USED 
254 001132 o00000 "WORD 9 
255 001134 000 SAUTOB: .BYTE 0 : AUTOMATIC MODE INDICATOR 
2S 001135 000 SINTAG: .BYTE 0 INTERRUPT MODE INDICATOR 
257 001 136 “WORD 0 
258 001140 baad SUR: “WORD DSWR < ACcness OF ecrten REGISTER 
259 001142 177570 DISPLAY: .WOPD ODISP 5 /ADDRESS OF ISPLAY REGISTER 
260 OC11L44 177560 $TKS: 17756- sity AEM 
261 00114 177562 $TKB: 77562 :;TTY 
262 OO11S0 177564 $TPS: 177564 :: TTY PRINTER STATUS REG. ADORESS 
263 O01i52 177566 $TPB: 177566 !: TTY PRINTER BUFFER REG. ADDRESS 
264 001154 vets SNULL: .BYTE ::CONTAINS NULL CHARACTER FOR FILLS 
265 OC1155 o02 SFILLS: {BYTE 2 ;;CONTAINS @ OF FILLER CHARACTERS REQUIRED 
266 O0C1156 Sle SFILLC: .BYTE 12 !: INSERT FILL CHARS. AFTER A “LINE FEED” 
267 001157 000 STPFLG: .BYTE OC ::*TERMINAL AVAILABLE” FLAG (BET BT SaSVES) 
268 001160 oo00c00 GAD: 5 !:CONTAINS THE ADORESS FROM 
263 ::WHICH (SREGC) WAS OBTAINED 
270 001162 900000 SREGO: .WORD 0 !:CONTAINS ((SREGAD) +0) 
271 001184 oo00c0 SREG1: :WORD 0 ::CONTAINS (($REGAD)+2) 
272 001166 o00c00 G2: [WORD 6 !:CONTAINS (($REGAD) +4) 
273 001170 dO0G00 SREG3: .WORD 0 :: CONTAINS ( (SREGAD) +6) 
274 001172 oo0000c STMPO: :WORD 9 R DEFINED 
275 O01i174 g0000C STMPi: :WORD 0 3 R DEF NED 
276 001176 000000 STMPe: :WORD 0 ;;USER DEFINED 
277 001209 00000 STMP3: .WORD :: USER DEFINED 
278 001202 077 SUES: “ASCII 797 5 STION MARK 
79 001303 «Os SCRLF: [ASCII «15 ;:CARRTAGE RETURN 
280 001204 900012 SLF: SCI2 <le> “LINE FEED 
21 itiassvistassonsssossnsonassaseibinansnsateazsntecnsatenssszyess 
282 001206 so0000 bar THM fy ;NUMBER OF SOFT ERRORS 
283 001219 909000 BPRONM: “HORE 0 {NUMBER OF HARD ERRORS 
284 001212 p ors: 6 ;NUMBER OF TAPE PASSES 
285 00:214 000000 ocD000 REYTTL: .WORD 2.0 ‘NUMBER OF BYTES READ 
286 SCis20 009000 300000 WEYTTL: .WORD 9:9 "NUMBER OF SYTES WITTE” 


CO3 


pare TA Pees ees MATIGEC-18~O2THE et hae 27: 10068) i7-MAR-77 14:SS PAGE 7 


age , 
-° 





Stic 
287 001224 ROTRYS: .WORD 0 eps & COUNT OF 
See BBi558 900000 BSTNUR: “HORE Bo RUMGER oP hii TTS OR “WRITTEN 
$2; 01234 LASTBK: .WORD 15. re aoe THe 2 OF THE LAST BLOC 
292 AFTER A “FORMAT” OR “WRITE” PASS 
293 901236 LASTFL: .WORD 9. ‘alte CONTAIN THE ® OF THE LAST FILE 
eS AFTER A "FORMAT" OR “WRITE™ PASS 
= 
297 001240 177500 TACSL: 177500 ADDRESS OF TACS 
298 OOle¥e 177502 TADBL: 177502 :ADDRESS OF T 
239 O0le4% 000260 000262 TAVEC: 260,262 TALL VECTOR ADDRESS 
300 001250 TAPRIO: 309 :TAil 98 LEVEL 6 
301 901252 ocococ ORVKEY: 0.0 
302 001256 6012S2 ORVPNT: DRVKEY 
203 001260 MAXRDS: .WORD 3 ;MAX REREADS BEFORE CALLING IT A HARD ERROR 
304 OOlebe 900003 NEXERR: “WORD 3, MAX HARD ER ERRORS Passes sone ikem 
° ° H a he 
30 GoiSe6 Soo000 PASENT: “WORD BRUNT a OF TAPE. PRESES 
207 001270 001274 oocooc PSCNTL: .WORD FORPAS,O ;CONTROLS_ THE TYPE. OF Pass 
308 601274 900000) “WORD : 1 FORMAT PASS 
309 001276 000003 ROIPAS: (WORD 3 : 3 READONLY PASSES 
310 001300 000001 WRT “WORD 1 ; 1 WRITEONLY PASS 
311 901302 990004 RO2PAS: WORD 4 :_4 READONLY PASSES 
312 901304 090 FILE: .8YTE 9 :FILE NUMBER 
313 091305 377 “BYTE 377 !1°S COMPLEMENT ON FILE NUMBES 
314 001306 900 BLOCK: «BYTE 8 ; BLOCK . 
315 001307 377 ‘BYTE 0-377 :1°S COMPLEMENT OF BLOCK NUMBER 
31é OC13i0 ooob2c FILESZ: (WORD 16. :MUMBER OF BLOCKS PER FILE 


DO3 


TALL ORTR RELIABILITY  MRINDEC-11-DZTRE-C MACYL1 27(1006; i7-MAR-77 14:55 PAGE B 
DZTAEC.P1L L7-MAR-77 14:52 COMMON 7232 
a3 : S4SIGAS FSS AG S444 s/f GAG SAAS 4/ 44S 4 
35° .S@TTL BLOCK SIZE TABLE 
322 O01212 902000 BUKSZ: .WORD 1024. ;BLOCK 0 
3€3 0013!4 001900 -WORD Sie. ; LOeK 
324 001316 002000 -WORD 1024. ; BLOCK 
a aes 900400 . WORD te : : : 
a8 as : * 4 
Se Be i 
UO1326 002000 -WORD 1024. ;BLOCK 6 
329 901330 000100 -WORD 64. ;BLOCK 7 
230 001332 002000 -WORD 1024. ; K 8 
333 901334 000040 -WORD 32. ;BLOCK § 
332 001336 000200 WO 128. ;BLOCK 10 
333 001340 00 -WORD 256. ; K 1} 
334 Q0134e 001000 ° Sle. ;BLOCK 12 
335 001244 O02 ‘ 1024. ;BLOCK 13 
336 O0124%6 -WORD 32. ;BLOCK 14 
250 C0i3S0 o0O0e00 -WORD 128. ;BLOCK 15 
339 CLIFF EPLATLELFFSTTILSASTSALESFESATSTSAGPSST ISAT AIEEP PSSST LL ELLE SALA 
240 
su3 .SBTTL TABLE OF POINTERS TO THE DIFFERENT PATTERNS 
343 001352 901412 Pars: PATO 
254 001354 00)422 PAT! 
345 O0i13SE OC143e2 PATO 
346 001360 01442 PAT3 
347 001362 001452 PRT: 
348 001364 01462 Pars 
249 001366 01472 PAT 
280 001370 001502 PAT? 
251 O01372 O0iSle PATS 
3S2 001374 001522 PAT 
383 oot a7e 001532 PATIO 
254 0014 00iS42 PATi1 
3S5 O00i402 001552 PATIe 
SSE 001404 001Ste PATI3 
387 001406 001572 PATi4 
3S6 301410 O0160e PAT.S 


une 
Bat 


tte 


atta 


A Ay a LD at he 
RBiniveED 


Sea aaa aa 
uiniGintoow 


-O00 
cord) 


CL 1-O2TRE-C PeE TE OR BADR Rens Toe OreFERENT PATTERNS 


CLSISASTILLALAOTSTTAOITAASIATPTLAT PSSA SITS SSTAIPTSOIS SSSI SSIS ESAS TASS 


. SBTTL DATA PATTERNS 


a PATO: .BYTE 314,063,314,063, 146,231,146,231 


o63 PAT1: .BYTE 314,231,063, 146,314,231,063, 146 


O04 PAT2: .BYTE 001,002,004,010,020,040, 100,200 


O40 

332 PAT3: .BYTE 177,277,337,357, 367,373,378, 376 
3 PAT4: .BYTE 252,125,252, 125,252, 125,252, 12s 
oes PATS: .BYTE 900,111,222,333,044, 155,266,377 
1}} PATE:  .BYTE 000,044, i11,155,222, 266,333,377 
es PAT7: .BYTE 000,222,044, 266, 111,333, 155,377 
Boe Pata: .BYTE 901,003,007,017,937,077,177,377 
ay PAT9: .BYTE 376,374,370, 360,340, 300,205,000 
o0e PATIO: .BYTE 001,376,002,375,004, 373,010,367 


fay PATI1: .BYTE 020,357,040,337,100,277,200,177 
if 
poe PaTi2: .8YTE 000,000,000,000,909,000,000,000 


377 PATI3: .BYTE V7 aC ai aii yaligdil yd yaee 


377 


poe PAT!4: .BYTE 000,377,000,377,000,000,377,377 
5O7 PATIS: .BYTE 017,360,207,170,303,074, 341,036 


FOS 


Tall DATA RELIABILITY a ‘DZTRE-C MACY11 27(1006) 17-MAR-77 14:55 PAGE 10 

OZTREC.P 11 TP RAR. 77 14:52 DATA PATTERNS 
414 
45 SSAPLESLASTASSIALAGSATSISTAASTA STATA SAATSSSSSAAATASAPI SAAS ASASAE ASS SS 
ait .SBTTL PARAMETER BLOCK USED WITH ALL FUNCTIONS 
419 001612 000 PARMBK: .BYTE Q ;USED FOR ks pee 
420 001613 000 .BYTE QO sDRI VE _# (DRIVE A mn B=1 
421 001614 OOléle -WORD PARMBK ;POINTS "10 aoraTus/er ROR. BYTE 
422 O0l6l6 913464 - WORD BUFFER FIRST 00k ESS OF De DATA BUFFER 
423 O0lbev 00000 . WOR ; USE 


-~ 
. 


Tall ears RELIABILITY MAINDEC-11-DZTAE-C MACY11_27(1006) 17-MAR-77 14:55 PAGE 11 


DZTAEC. 17-MAR-77 14:52 ERROR POINTER TABLE 
425 .SBTTL ERROR POINTER TABLE 
427 s#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
439 :¥THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
aE #LOCATION SITEMB. THIS NUMBER INDICATES WHICH tTEN IN THE TABLE IS PERTINENT. 
430 ; #NOTEL: IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC). 
131 : ¥NOTED: EACH ITEM IN THE TABLE TCONTAINE 4 POINTERS EXPLAINED AS FOLLOWS: 
433 % EM ;;POINTS TO THE ERROR MESSAGE 
434 % DH ;;POINTS TO THE DATA HEADER 
435 - OT NTS TO THE DATA 
436 + OF !:POINTS TO THE DATA FORMAT 
Jf 
438 
433 901822 SERRTB: 
yi t 5 LERAALRL LEAL RAL AREAL ALL RAL EEL ER RAL RELEASE RAF LARA RHEL RAL ALE LAL LS 
She Ya HEHEHE GHEE HEBHE EEE EEE 
cua 5 EEKKEEE EEE LLAE RAKE HEAL LARA LEELA L ERA LASALLE AAAS EERALELELELE EES 
ts 001622 _— ITEMSO: s ITEMS 001-002 
44? *  SNOTE: ALL NUMBERS WILL BE TYPED AS 6 DIGIT OCTAL NUMBERS 
448 : UNLESS OTHERWISE NOTED 
450 :ITEM 
451 O01622 012244 EMI :DATA ERROR 
452 001624 12535 OH! :PC FILE BLOCK BYTE  GDDAT BDDAT SDADR BDADR 
453 001626 O11770 OT1 !SERRPC SREGO SREG2 BYTNUM SGDDAT S$BDDAT $GDAOR $SDADR 
453 O0:630 Ole0se2 OF! :FILE,BLOCK AND BYTE ARE TYPED IN DECIMAL 
456 sITEM 2 
457 O01632 012257 EM2 :SYNC ERROR 
458 001634 012623 He ; EXPT’D EXPT’D RCV'D RCV"D 
459 :PC FILE LOCK FI K 
460 O01636 O12e012 oT2 :SERRPC SREGO SREG2 $TMPO STH P2 
16) O01640 O12062 OFe ‘ALL NUMBERS EXCEPT SERRPC ARE TYPED IN DECIMAL 
463 5p RRRARERRAAASR AAAS ARERR AA AAA ER RA AA ALSSAAAAA SEAL RAR AHAALAAT SALA LAER 
sis 5 REAREARAA AER RE REE REAR ARERR ERE RARER EARL ALAR RAKE RARE ERERL SERS 
iee 5 RRSRARE RRA A EARLE SASL EEA EEE RARE LEELA AEE ARAL ELA RALARERELARELSAATS 
167 001642 ITEMS1: sITEMS 101-107 
463 OO1b42 012272 : DRIVE 1s OFF-LINE 


01 
470 OO1E44 01 
471 OO1646 pASore ; SERRPC $REGO SREG2 


e EM101 
2750 DHIOl PC FILE BLOCK FUNCTION 
OT101 STMPO 
0 FILE AND BLOCK WILL BE TYPED IN DECIMAL 


472 OO1ESO 0000 

73 §TNPO WILL BE TYPED AS A FUNCTION NAME 
475 001652 012314 £M102 ; DRIVE IS WRITE-LOCK 

476 001654 012750 DH101 ;PC FILE BLOCK FUNCTION 

477 OO1656 012026 DTi01  :SERRPC $REGO SREG2 S$TMPO 

478 O01660 000000 0 -FILE AND BLOCK WILL BE TYPED IN DECIMAL 
479 -$TMPO WILL BE TYPED AS A FUNCTION NAME 


TALL DATA RELIABILITY ee C MACY11 27(1006) 17-MAR-77 14:SS PAGE le 


DZTAEC.P11 17-MAR-77 14:Se2 ERROR POINTER TABLE 
481 001662 012340 EM103 ;CLEAR wait a ERROR 
482 901664 OQle7S0 DHIO1  ;PC FILE BLOCK FUNCTION 
483 001666 Ole0eb OT101 ; SERRPC $REGO SREG2 STMPO 
484 001670 000000 0 SEIU ati po Mob aE A TYPED IN DECIMAL 
i :$TMPO WILL TYPED A FUNCTION NAME 
487 001672 012363 EMi04 ;FILE GAP ERROR 
488 001674 012750 OH101  ;PC FILE BLOCK FUNCTION 
489 001676 O120c6 OT10:  ;SERRPC SREGO SREG2 TMP 
490 001700 000000 0 FILE AND BLOCK WILL BE TYPED IN DECIMAL 
es ;STMPO WILL BE TYPED AS A FUNCTION NAME 
493 1702 912402 EMi0S ;TIMING ERROR 
494 001704 012750 DH101 ;PC ILE BLOCK FUNCTION 
495 001706 012026 OT101 Bg SREGO SREG2 S$TMPO 
496 001710 o00000 0 sFILE AND BLOCK WILL BE TYPED IN DECIMAL 


497 ?$TMPO WILL BE TYPED AS A FUNCTION NAME 


498 
49g O01712 012417 EM106  ;BLOCK CHECK ERROR 

S00 001714 012750 DH!01 PC FILE | BLOCK FUNCTION 

501 OO1716 Ole0z6 DT101 ;SERRPC SREGO SREG2  $TMPO 

S02 001720 ooo000 0 !FILE AND BLOCK WILL BE TYPED IN DECIMAL 

303 :$TMPO WILL BE TYPED AS A FUNCTION NAME 

505 001722 012441 EM107 UNKNOWN INTERRUPT 

506 001724 Ole750 DHIO1  :PC FILE BLOCK FUNCTION 

507 O01726 O12026 DT101 ;SERRPC SREGO  SREG2  STMPO 

508 901730 o0c000 0 LE AND BLOCK WILL BE TYPED IN DECIMAL 

508 :$TMPO WILL BE TYPED AS A FUNCTION NAME 

Sil sy RERASAAAE ARREARS AERA AAA A RES RAR EAA REAR AA ELE LA RASA ALA RARSAARHAALRE 
Sle sy REREEAEE ERE R RELA ASE RARER AL AAAS RE RALAEAARRALARAARAFLA LL RALEAAAAREX 
aa eet citer t iii tii ite itis tit iiitiiiitiiiiiiicticititittrsss 
E15 001732 ITEMS2: sITEMS 201-202 

517 001732 012462 EM20! ©; 7A1! FAILED TO RESPOND 

518 001734 O13011 DHeO1 TACs 

E19 001736 O12040 OT201  !$ERRPC TACS 

5EC 001740 00000 0 ?BOTH NUMBERS ARE TYPED AS OCTAL NUMBERS 

S22 001742 O1e512 EM202  ;NO DRIVES AVAILABLE 

253 Seloye Gisteé BY5oS « SERRPC 

ec A0i7se BosooS ai ae 


TALL wht RELIABILITY 
OZTAEC.P 


002172 
002174 


002220 


17-MAR-77 


o0S00S 
0 


012767 


013746 


012637 
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04111 
000005 


000260 
0006001 
090092 
TPSPbs 


001100 
001140 
001100 


002130 


000004 
177777 


002204 


000176 
000174 
ococo4 


001252 
900041 


001244 


000020 


176750 


oo00c4 
176762 
176756 
176746 


176726 
17722 


START OF TEST 


SCLPSSTSITITIATATSTAITATIAAAAS AAS ATTA STATATAASSASS AAAS A SAAS SSAA SAAS 
HAA AAA 
5 5 RRRRELREA EARLE ELL RAL RAE SHEA AALS LAA ALARA HAR ALAR ALL ALL ALL ALE 


BEGIN, 13 EgR NORMAL a TBRt 
iBEGINE R DRIVE SELECTION 
EGIN3 18 FOR DRIVE & ADDRESS SELECTION 


5 5 RRRRERA REEL EKER EE RAR AREAL LRA LEAL ALARA LAE RRA A ALA RLE LALLA LL ALE 


BEGINI: CLR RS ;NORMAL START 
MOV #"AB, JHDRVKEY 
CMPBs#S, HY CASSETTE DOP? 
BNE BGNCMN :G0 BEGIN COMMON CODE IF NO 
CMP #260, J#TAVEC STANDARD VECTOR? 
BNE BGNCMIN :GO BEGIN COMMON CODE IF NO 
BR BEGIN3 GET DRIVES AND ADDRESSES 
BEGIN2: MOV #1,R5 ASK FOR DRIVES FLAG 
BR BGNCMN :BEGIN COMMON CODE 
BEGIN3: MOV 82, R5 ASK FOR DRIVES AND ADDRESSES 
BGNCHIN: CL 


R P 
-SBTTL INITIALIZE ve COMMON TAGS 
;;CLEAR THE COMMON TAGS (SCMTAG) AREA 


MOV #SCMTAG, R6 ssEIRS LOCATION TO BE CLEARED 
CLR (R6)+ :CLEAR MEMORY LOCATION 
CMP #SUR, Re ;;DONE? ” 
BNE LOOP BACK IF NO 
MOV STACK, SP EP tUP THE STACK POINTER 
js INITIALIZE A FEW VECTORS 
MOV #SSCOPE G¥IOTVEC ; -10T VECTOR FOR SCOPE ROUTINE 
MOV #340, aetor VEL 
Nov use ae nEnTVEC’ Be VECTOR FOR ERROR ROUTINE 
MOV i sa aTRREVEC FRaB VECTOR FOR TRAP CALLS 
NOV bea eet FAILURE VECTOR 
MOV Pes es * ALEVeL 
MOV i5SET ig END-OF -PROGRAM COUNTER 


MOV ‘INITIALIZE THE LOOP | ADDRESS FOR SCOPE 
: SIZE FOR A ett SUT TCH pe IF NOT FOUND OR IT IS 
::EQUAL TO A "-1", SETUP FOR R SOFTWARE SWITCH REGISTER. 
akERR RROR VECTOR 


MOV RRVEC, - ;SAVE E 

MOV aes SHERAVEC ::SET UP ERROR VECTOR 
MOV 5 ; ; SETUP FOR A HARDWARE SWICH REGISTER 
MOV sDDISP DISPLAY “AND A HARDWARE DISPLAY REGISTER 
CMP #-1, SHR iiTRY TO REFERENCE HARDWARE SWR 

‘ BNE 66S i BRAN CH IF NO TIMEOUT TRAP OCCURRED 

THE HARDW WARE Si SWR IS NOT = -1 

BR 65$ : BRANCH F NO TIMEOUT 

4S: Nov #65$, (SP) ;;SET UP FOR TRAP RETURN 

65$: MOV #SWRE gyi POINT TO SOFTWARE SWR 
MOV Harta Rs 

6E$: MOV (SPi+, SRERAVES” ” RESTORE ERROR VECTOR 


-SBTTL TYPE PROGRAM NAME 


TALL DATA RELIABILITY 
DZTAEC.P11 


610 


WOoMr mmm” ocr co" ov” 
TUT — o— & bp 
MV OWODONMUWCWre 


276 
002276 
002326 


002344 


17-MAR-77 


36 
Beer ae 
104401 

737 
1006 
026727 
001005 
104405 
000403 
112767 
000413 


010504 


002402 
004737 


a ee ee ee et ——- - ~~ — -— se 
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177777 
004726 
002300 
oo0n4e 
176660 


o0c0c! 


c07620 


007730 


000042 


000176 


176636 


002350 012737 002366 o00004 


002356 


002360 005777 176654 


TYPE PROGRAM NAME 
;;TYPE THE NAME 1 THE PROGRAM IF FIRST PAS 
TRC FIReT Tine? 


BN E 67 7 BRANCH, ir NO 
CMP BSENDAD,d#42 = :ACT- 11 
BEQ 675 ; BRANCH IF YES 
TYPE 68S TYPE RSC1zZ STRING 
.SBTTL GET value” FOR SOFTWARE stitTcH REGIST 
TST #42 s ARE RUNNING UNDER XXDP/ACT? 
BNE o8¢ : BRANCH 
CMP SWR, #SWREG ; 3 SOF THARE SUITCH REG SELECTED? 
BNE 70$ : BRANCH 
GTSHR et t:GET SOFT-SWR SETTINGS 
69$: MOVB  4#1,S$AUTOB :;SET AUTO-MODE INDICATOR 


70$: 
BR 67$ OVER THE ASCIZ 
nll -ASCIZ <CRLF>/MAINDEC- = 1 3b 5 Tab~e <CREFD 


5 RHR RAA ERLE RAL LA ELLE E RELA REA E REAR EAE ER LARA EARL LARA EERE ERLE ES 
Pieri ri tiiti titi titi it ttt tii ttiiitiititiitittititiiiiris iors ts 


Me CONTENTS OF RS DETERMINES WHAT WILL BE DONE 

RS=2 ASK FOR parve(s) AND ADDRESSES (TACS AND VECTOR) 
RS=1 ASK FOR ORIV 

: RS=0 DON’T ASK FOR “NY THING 


+s LEEKS HELE LEE RELA A AKL A ERLE AA RL LALA LAE L EE ER LAER E LE RLL ELA RES 


neon MOV RS,R4 COPY RS 
DEC R ASK FOR DRIVES? 
BLT CHKADR :BR IF NO 
ISR PC, J#ASKDRV :G0 GET DRIVES TO BE TESTED 
DEC RS ;ASK FOR ADDRESSES? 
BLT CHKADR NO 
ISR PC, J#ASKADR ‘G0 GET TAL1 ADDRESSES 


HEHEHE HEHEHE HEE OIE AEE 
Petit ttt ttt ttt t tii ti titi Li LLLL LLL ELL iii titi ties tiie ite 


; CHECK THAT “TACS” WILL RESPOND TO ADDRESSING 


tT. pine OCCURRED 
YPE ne MESSAGE 


: 8 EXAMI NE R 

: c. uo GOTO PEGINK 

: 2. R4=0 as 42) 

: A. (42)=0 GOTO BEGINX 
; B. (43) GOTO SENDAD 


II. TIME QUT DIDN’T OCCUR 
. CONTINUE 


eee ee IN Chae OF TIRGUTS 


igs R: MOV 815, J#ERRVEC :IN CA SE OF TIMEOUTS 
CLR 0 USE AS A SWITCH 
TST JTACSL :SEE IF TAll RESPONDS 


TAL] DATA RELIABILITY 
DOZTAEC.P11 


639 


062364 


002435 


17-MAR-77 1 


000402 
00 


e626 
012737 


00S077 


oe 11-DZTAE-C 
4:52 


000082 


ooo04e 


004726 
007056 
176604 


1$: 
o0000& oocoo4y es: 


176606 35: 


MACY11 27(1006) 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


es 
R 


(SP)+, (SP)+ 
SERRVEC+2, QWERRVEC 


NDAD 
SCASINT, aTAVEC 
JTAVEC+E 


17-MAR-77 


14:55 PAGE 15 


;BR_ IF NO TIMEOUT 
; COME. HE HERE ON TIMEOUT 
THE ST Pte 


ha TIMEOUT TOR 
Lad OccUR? 


FALL FEATLED TQ RESPOND 
; DRI VES & ADDRESSES 
| OPERATOR INPUTS? 


‘GET MONTTOR toa ADDRESS 
:BR IF F NO MONI TO 


END 
Se TUP CASSETTE INTERRUPT VECTOR 


LOS 


TALL DATA RELIABILITY MAINDEC-11-DZTAE-C MACY11 27(1006) 17-MAR-77 14:55 PAGE 16 
DZTAEC.P 17-MAR-77 14:Se GET VALUE FOR SOFTWARE SWITCH REGISTER 
SS4 5 RERRERAA ERE E REE REA GEER EERE EEE ERE E ELAR EER LER ELE REALE LSA E 
124 WTTTITTTITTTTIT Titi TT Tit tT tt TT LLL LE LELELL LLL LLL LLbibiiie 
Ss 
657 aaa SURE THE DRIVES IN THE DRIVE TABLE CAN BE TESTED 
659 rT. DESIRED DRIVES CAN NOT BE TESTED 
660 : TYPE ERR OR MESSAGE ° 
Eee : e: exante R4>0 GOTO BEGINX 
BPs : }- eo BOTS THE (42) 
664 : A. (42)=0 GOTO BEGINX 
B65 : B. (42)>0 GOTO SENDAD 
43 !II. BOTH DRIVES IN THE TABLE BUT ONLY ONE OF THEM CAN BE TESTED 
668 : . CLEAR BAD DRIVE FROM THE DRIVE TABLE 
669 : B. TYPE THE DRIVE TO BE TESTED 
p20 : C. CONTINUE IN PROGRAM 
b72 ‘III. DESIRED DRIVE(S) CAN BE TESTED 
67 : A. TYPE THE DRIVE(S) TO BE TESTED 
oe : B. CONTINUE IN PROGRAM 
676 ; aS Meares OF RAeTT 
67 ogee 012700 go12se AAKDRV: nov BORVKEY ,RO PICKUP ADDRESS OF ASCII DRIVE KEY 
e353 Bosacs Bpodia ig iGO PAAHING FIRST DOIVE ocr 
680 O024S4 116010 o00001 MOVB  1(RO), (RO) ‘REPLACE 1ST WITH 2ND 
681 002460 001412 BEQ 2$ :BR IF NO 2ND DRIVE SELECTED 
682 O0e%62 004737 010174 ISR PC, J#EXAM *GO EXAMINE DRIVE 
683 O0e%66 000407 BR $ :0K TO TEST 
684 002470 005010 CLR (RO) :CLEAR DRIVE CODES 
685 002472 0s BR 2$ 
686 002474 005200 1S: INC Ro :POINT TO 2ND 
687 002476 004737 010174 ISR PC, a#EXAM :GO EXAMINE DRIVE 
688 002502 01 R 30K TO TEST 
689 002504 105010 CLRB = (RO) 
630 002506 012700 oo1es2 2s: MOV #ORVKEY, RO RESET ADDRESS POINTERS 
691 002512 010037 001256 MOV fc QNDRYPNT 
692 002516 121060 CO0001 CMPB 0),1(RO -1ST = end” 
eas posess | Speben 000001 ae 70) ee IF LEAR 2ND 
Bae poses anezio as. 6° tao AES oR tueS 
69% 002532 O01424 BEQ S$ :BR IF NO 
697 002534 112037 001613 MOVE _-(RO)+, J#PARMBK+1 ; SETUP TO TYPE THIS DRIVE 
698 002540 104401 001203 TYPE RLF TYPE "CR" & “LF” 
699 002544 106237 001613 ASRB $ads#PARMBK+1 ;ADIUST FOR TYPING 
700 002550 004737 007564 JSR PC. a8 TPDRV :GO TYPE DRIVE 
701 002554 111037 001613 MOVB (RO) , a#PARMBK+1 :GET 2ND 
702 1406 EQ 4g :BR IF NONE 
703 104401 013220 YPE MSG9 
roe poses Aonea? | poeeEa fers Sarees ADJUST FOR TYPING. RIVE 
7 oe Ibs ai Bf 538¢ 4$: YPE MSG10 :"WILL BE TESTED”<CRLF> 
ang prseng op 4 c$ ERROR Tar VES AVAILABLE 
ope ppse ee piste ocooo2 MOV 2° Rs ie OES abRese 


MO3 


TAlL DATA RELIABILITY MAINDEC-11-DZTAE-C MACY11 27(1006) 17-MAR-77 14:SS PAGE 17 
OZTREC.P11 17-MAR-77 14:Se2 GET VALUE FOR SOFTWARE SWITCH REGISTER 
1] Qosels Oolea4 Be BEGINX ge ir yes. 
is Bose ie ig oocc4e MOV a2 RO :GET MONITOR RETURN ADDRESS 
713 2 paar 3 BEGINK ;NQ MONITOR 
714 O00e6e4% 900137 004726 M #SENDAD ;G N 


LL A A A A i A CT I le i a tt le a a i te age 


TAl1 DATA RELIABILITY a. 11-DZTAE-C MACY11 27(1006) 17-MAR-77 14:SS PAGE 18 


DZ2TAEC.P11 17-MAR-77 14:Se GET VALUE FOR SOFTWARE SWITCH REGISTER 
71S SASSI IASTTAIAAAATAAAASAAAAAAASATA AAAS I TAA AAAAAT AA AAAAAATATAS SSAA SSSA 
716 SSOOSSTSAASITTATTAATTAAAAATATTAAA TA AAA AAAS ATTA A AAAS T SESSA ASS SSS SS 
717 $5 SKA RFRA AA LALA AAELRARERAL ALAR E AA RRA ARELEA ARES ERA RERKARESSRHA ZEEE 
og 38 KEEL SRSL KALLE LEE LES LEEKS URL KEK ELE LEK E KEKE RAE KE GRRE KGS SHAK LESS 
720 : 1. CLEAR THE VARIABLE STORAGE AREA 
721 : 2. SETUP FOR THE DRIVE THAT IS TO BE TESTED 
722 : 3. SETUP “LASTFL™ AND “LASTBI INCASE OPERATOR SELECTS "READONLY" Pass 
723 : 4. SETUP THE MAX. NUMBER OF RETRYS F ADS AND WRITES 
724 : S. SETUP TO START WITH A “FORMAT” PASS 
72s : 6. CLEAR THE PASS COUNTER 
727 : | LEKREKKLERERA ERE RER ERR E RES EREA SERA ERALE ARERR EAHA AARAA RAS RSA LELE 
728 002630 012700 001114 dtarT: MoV #SITEMB, RO ;CLEAR VARIABLE STORAGE AREA 
729 002634 012701 o00005 MOV 8SBDDAT-SITEMB/2,R1 
730 002640 004737 002764. JSR PC. J#CLEAR ;CLEAR AREA 
731 OO02644 012700 001206 MOV #SOFTNM, RO 
732 002650 012701 000014 MOV aLASTEL “SOFTNM/2, Rl 
733 002654 004737 002764 JSR PC, a#CLEAR 
734 002660 013701 O01256 MOV J#ORVPNT, R1 ;GET DRIVE POINTER 
735 002664 112100 MOVB ante ,RO’ SETUP THE DRIVE 
736 002666 006200 ASR RO 
737 002670 942700 177776 BIC #*CBITOO, RO 
738 002674 110037 001613 MOVB RO SE PARMBE+ 
739 002700 105711 TSTB =e (RL) ;END OF DRIVE TABLE? 

740 002702 001002 BNE 3 :BR IF NO 

741 002704 012701 o01252 MOV #DRVKEY, R1 ;RESET DRIVE TABLE POINTER 

742 002710 010137 001256 2s: MOV R1, J8ORVPNT ; RESTORE THE DRIVE POINTER 

743 002714 012737 O00011 001236 MOV #9. , J8LASTFL ‘SET “LAST FILE" & “LAST BLOCK" INCASE 
744 7ee 012737 000017 001234 MOV #15: , J#LASTBK j OPERATOR SELECTS “READONLY Pass 
SE a a Be ap nd 
747 ppSoaa pt 3035 001274 001270 MOV #FORPAS, 2#PSCNTL i3eT FORMAT PASS 

748 002752 005037 001272 CLR QePSCNTL +2 

749 002756 005037 001266 CLR aePASCNT ;CLEAR THE PASS COUNT 

750 002762 OO00404 BR LOOPER :GET ARCUND CLEAR 

751 002764 Oo0S020 CLEAR: CLR (RO)+ 

re erie See ee 

754 002772 O00207 RTS PC 


EE a ee —- —~. ee 


80" 


TAL] par , PELTABILITY HAINOEC- 11-DZTAE-C macy 41 A148) 7-MAR-77 14:55 PAGE 19 
DZTAEC.P 1?7-MAR-77 14:52 ae VALUE F oy TCH REGISTER 
755 i SELEAKRLKERSLAAAEERLSRERLSRERSSA RRR RAASERARAPRSRESRSREAA SELES SS 
ce 3 5 SHRRARAAAAESAASRERALASRAA HARE ARAAARARAA ALAA SRA LALA SAARALELALRAREE 
(Si : 
758 :I. CHECK SWR<7> 
759 ; A. SWR<7>=1 PERFORM AS PER SWR<1:0> 
760 ; 1. OO=FORMAT PASS 
761 ; . O1=READ ONLY PASS 
7Se ; . LO=WRITE ONLY PASS 
753 11=READ ONLY P 
7b4 
755 : 8. SUR<7> =0 
766 : UPDATE PASCNT 
7&7 : 3: PERFCSM AS PER (PSCNTL+2) 
768 : A. FORMAT 
769 : B. READONLY 
770 : C. WRITEONLY 
a ; . READONLY 
é ; 
773 AOPER: OVE SMR DESTNPO AIF SMACPDG1 + DO PER le? 
774 002774 117737 176140 001172 COOPER: MOVB aSWR,asSTMPO SWR‘7>=1 ; DO PER SWR«1:0> 
775 003002 142737 177574 091172 BICB stC<BITO7!BITO1:8ITOO>, ghdneo 
77 003010 100432 BMI 3s ;BR IF seach 
777 003012 023777 OOl266 176259 1S: CMP JSPASCNT , APSCNTL :IS THE COUNTER AT MAX. ? 
778 003020 O024e1 BLT 2s BR IF NO 
778 003022 005037 001266 CLR aePASCN !RESET THE COUNTER 
780 003026 062737 000002 001270 ADD #2 SAPSCNTL :MOVE TO THE NEXT PASS TYPE 
781 003034 005237 00127 : INC SEDSCN NTL+2 
782 903040 023727 001270 6C:304 CMP asPSCNTL, sRD2PAS+2 ; TIME TO RESET PASS TYPE? 
783 00304% 001361 — BNE i§ :BR IF NO Fe 
784 003050 012737 001274 001270 MOV QRPAS DePSCNTL : YES---RESET THE PASS CONTROL WORDS 
785 003056 005037 001272 CLR sePcenTl ss 
786 003062 000753 BS 1$ :GO CHECK THE COUNT 
787 003064 005237 001266 2s: INC aBPASCN :COUNT THIS PASS 
738 003070 013737 OOle72 001172 " MOV a OCeNT +2. 28S TMPO :PICKUP THE TYPE OF PASS TO DD NEXT 
730 003076 ooso46 CLR -(SP) 
791 003100 113716 001172 MOVB  aeSTMPO, (SP) :PICKUP THE DISPATCH INDEX 
792 003104 1656316 ASLE (SP) :POSITION THE INDEX 
7932 003106 106316 ASLB = ( SP) : BEFORE USING IT 
734 003110 GDD (5P)+. PC :G60 TO THE ROUTINE 
795 CO3112 000137 003132 IMP def ORMAT 
7% 002116 009137 903562 IMP @BREADONLY 
797 003122 009137 O00413€ IMP DBWRITEONLY 
798 003126 900137 995356e DeRE Y 
733 SAPPASLIIPITLEDLATSESSLEELELEELELEBLLEDELEDEEBEEDELEEEBELELELLEEEL ELBE: 
820 TAAAAAAAA AAA AAA ddd MITPLEELETLELELPL TEED ELLPEELEEELE EEL 
801 , SEARESEAAAALASLELSSAAAASRAAAASSAALAAARERSAAARALAARASSRARALADSSAE 


Oe :SPRSEEEREESESLERELA ESSERE DESO PEPER SESE SEES SEES EE EE EEEEEEE ESE 


co ep coup op Coco coco cD0o 
TU) +0 +0 <b b-<8 tmp wt we at 


£00 0 O.00 NO ULE (ofue-O0 


oe RIeR 


ee _——— oe 


07 


R RELIABILITY. MAINOEC-11-02TAE=¢ YI1 271 >-MAR-77 14:55 PAGE 20 
OTe NOTRE SET vaLue FOR SBFTUSRE SwiTcH REGISTER 


H AAA AAA Added ddd ddd id dddddd ddd ddd dddddddddeddgdgdddd SESSA SAGAS S 
S77 SSIS ATAVAGSTAEATATATPSATTEAPASAIATSALAATATTAATES TAI SIAASASS ASA AAS ASS 
HAPREI ASI OA phd Aah Ahhh td high pd pa bd IFLITISAISISTE SSS SS 
SAFI TS/ TASTES STTSTSETPTESDAS TAA TATS TA EAALATTALTS ALAS PAS AGATA LSA ASAE 


~SBTTL “FORMAT” ROUTINE 


5 PASSES SSSR EL ASSESSES RSLSSES SSSR LAAT SALAS AES 
5, RRSRSRRRESSSSSESERSESERSALAS ESE SRALASSSSLELALA STATA ALLA SAT ES 


;THIS ROUTINE PERFORMS THE FOLLOWING SEQUENCE 


REWIND TO BOT 

WRITE FILE GAP 

. WRITE BLOCK OF DATA 
BACK BLOCK GAP 


NOUN ES WIT 


A ERROR k 
; A. DATA ERROR OCCURRED : 
1.) CROTRYS)<(MAXPROS) GOTO 4. 
.) CROTRYS)=(MAXRDS ) 
A.) (WRIRYS)< (MAXERR) 
1.) are eee GAP 


2.) 
ATA ERROR 4. CURTRY J=(MAXERR) GOTO SEOF 
: wpoaTe te BLOCK NUM GoTo A. 


a 
9. € 
. --- GOTO 3. 

. 8° Me 

° 1.) UPDATE FILE NUMBER 

: 5°) RESET BLOCK NUMBER TO 0 

3.) GOTO 2. 

5p PERSSRRRESSASASSRELAAA SHELLS SAA LE SSSAASLASSLELLALAPARAFEAATA DATEL 
003132 £12737 003132 O0110&6 FORMAT: MOV #FORMAT , a8SLPADK : SETUP SCOPE LOOP ADDRESS 
003146 104401 913246 TYPE MSG11 ORMAT # 
003144 007564 ISR bc JaTPORY 56 *TYPE THE DRIVE 
003150 104401 001202 TYPE $¢RL 
903154 012737 MOV 1PC)+, a(PC)+ sINITIALIZE THE BLOCK NUMBER 
002156 000 377 .BYTE 0,377 :SET BYTE 9 TO O AND BYTE | 
093160 306 “WORD BLOC :7O THE 1°S COMP. OF BYTE O 
003162 012737 MOV (PC) +, g(PCie tINITIALIZE THE FILE NUMBES 
003164 050 377 .BYTE 0,377 -SET BYTE O TO O AND BYTE I 
0032166 901304 FIL :70 THE 1°S COMP. OF BYTE © a 

sls ststs VISELEVPOATPEBEEPEAEEEEPEDLELPLERELLIAAMEDEEEPEED LS ee 

: “REWIND” TO “B0T" 

4444 (7eoy epeneeK. RO SS b a FILEEFSLESILALEL ELE DELFPALELEELEREM EP EL EE: ‘ 
003170 912700 OC1e1z2 MOY ;RO=1ST ADDRESS OF PQRAMETER BLOCK 
003174 006756 ISR Pc SaeeEINC :@9 TO REWIND 
6032 bea O0lelz2 1S: 7571p aaPAR WAIT ON FLAG 
003204 001775 BEG 
00320¢ 190022 BPL 3 :BR IF NO ERROR 
003216 804037 ocssze IS RO, JaCSRERS :60 7S CSR ERROR CHECe 


TALL 


OZTREC 


gsg 


Pll 


003214 


DATA RELIABILITY 
17-MAR-77 


000137 
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14:52 “FORMAT” ROUTINE 
004412 IMP aaSEoP :G0 TO END OF PROGRAM 
SLESSESTASESSATAITASAATATTTED ISTP LA SEES TTIPSDTAAIS SSFP PTIS SDA ASA SASL S ASS 
; “WRITE-FILL-GAP” 
SSASSSIIASAGIOASTATAAALSAGATATAASLAATASAASL ETP TASS STATS ELOSASAAA ALAA AAAS A 
$: 
opig1e Noy #PARMBK RO :RO=1ST AD ADORESS OF PARAMETER SLOCK 
3 JSR PC dew G 
001612 38: IST8 SaPARMBK “WAIT ON FLAG 
BPL rt ;3R IF NO ERROR 
00553 JSR RO, J8CSRERR :G0 TO CSR ERROR CHECK 
904412 IMP = gw $EOP GO TO END OF PROGRAM 
004364 JMP aeCKEOTS 
Fre hae ae ae a 
: "WRITE" A BLOCK OF DATA 
EePEPPRLESSIOREA SLES TTS ST TSIL SR PORP TEREST OS ee SSF hd ssh hlhlehahhsé 
003262 O01106 4S: MOV #S$, a8SLPADR :SETUP SCOPE LOOP ADDRESS 
72 ss: isk PC O#SETUPW :G0 SETUP FOR A f 
001612 MOV RO RO=15T ROORESS Ar PARAMETER BLOCK 
006726 JSR PC aeWwRt TE :G0 TO WRITE 
001612 &S: STB O4PARNEK :WAIT ON FLAG 
BPL 7§ :BR IF NO ERROR cn 
005536 JSR RO, J8CSRERR :GO TO CSR ERROR CHECK 
904412 IMP aase OP :GO TC END OF PROGREN 
004364 JMP aeCKEOTS 
CASSIS ESTSPMTAFTTIAITATAASLEP ASA LAS ASD SS SSSFSLEEPTLFOEESALSSDASLS ALES ES SA 
: “BACK-SPACE-BLOCK-GAP” 
geiren SLVAEVTAPSAATAATSOLAEDOELEPTEASDAALSDTATEADLDESAESAEATSPEAALAS A EFL 
001612 MOV #PARMBK , RO ;RO=1ST ADDRESS OF PARAMETER BLOCK 
906742 JSR PC, J#BSBG 0 BS8G 
001612 QS: Sie gaPARMBK {WAIT ON FLAG 
BPL 9$ :BR IF NO ERROR 
005536 JSR RO, J8CSRERR :G0 TO CSR ERROR CHECK 
904512 JMP aaseoP :G0 TO END OF PROGRAM 
PLTPELTLELILLI LITT AT IATL AGATA LATE ETAL LAD CSSFE FE EFLELFILEF aE F 3 
AD" A BLOCK OF DATA 
SO AASTLIELTITIITEPTATIAALAALL ELE SLFOLASL ESA act FOR A RE SIS SAAS AALS SS 
006220 ’g. JSR PC aeSETUPR GO SETUP FOR A READ 
001612 MOV #PARMBK RO :RO= O=15T 80 ROgRESS OF PARAMETER ELOCK 
00673e JSR PC, J#READ 
O01ble 108: 757B = IBPARMBK ieaIT ON nee 
BEG 10$ 
BPL 11$ :BR IF NO ERROR 
005526 JSR RO, J&CSRERR °G0 TO CSR ERROR CHECK 
004412 JMP assEoP 
1i$: COPE 
SSSATSITLIASEALATAAAA AL LEE Eo PSAP SLES LES Oe ae EP we os SEs hh ihill cif FSAPS ALES PLATA I 
: CHECK FOR SYNC ERROR 
2 SILETIAOLFLPILATASTOELOFTEEASALASS ERA LES A PPTPUAEELEPEEES OSS ELSES? Oe eo ae ae 
006254 ISR PC. a#SYNCK :SYNC ERROR? 
BR 12$ : RETURN HERE IF NC 
ERROR 2 :SYNC ERRO 
004412 IMP aasEOP 


TALL DATA RELIABILITY 


DZTAEC. 


Pil 


0 
O03560 


17-MAR-77 


C00 
013737 


001306 
000617 


——— - ee ee - _—_— “oe “ -2-~- 
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14:52 


006356 


o06SS0 
006605 
004412 


001226 


001612 
C0742 
001612 


005536 
e 


001262 


377 
001310 


001224 
W026 


001306 


“FORMAT” ROUTINE 


UE 
CHECK FOR DATA ERROR IF SOFT REREAD 
SIMI ALI LOLLY 


R PC, a#DATCMP ;CHECK THE DAT 
R iss : RETURN HERE IF DATA IS GOCD 
ERROR i :DATA ERRCR 
ISR 0, J#CNTSFT sCOUNT 56 ERROR 
JSR RO, J#CNTHRD s COUNT HARD ERROR 
BR 13$ REWRIT 
J ‘TO MANY HARD ERRORS 


MP 
LVL 


: F HARD ERROR REWRITE 
A A Sh 


3$: pee fares TRY fo PEMATTS THIS BLOCK? 
‘RO=IST ADDRESS OF PARAMETER BLOCK 


MOV #PARMBK ,, RO 
JSR PC. 38BS8G GO TO 
14S: S18 asPAR ARMBK WAIT ON FLAG 
BOL is’ :GO START A WRITE IF NO ERROR 
ISR RO BECSRERR :GO TO CSR ERROR CHECK 
1S$: MOV JSMAXRDS, JHROTRYS ;RESET THE REREAD COUNT 


MOV DHMAXERR, JHWRTRYS RESET THE REWRITE COUNT 
ELLE 
: UPDATE BLOCK # & FILE # 
PRE a bo DAKE ee ee ere 
ADD 7 eeaanll ; INCREMENT THE BLOCK NUMBER 


“WORD BLOCK 

CMPB «= ASF ILESZ, d#BLOCK ;TIME FOR A FILE GAP? 

BGT  4§ :BR IF NO--GO START A WRITE 
ADD (PC)+,9(PC)+ INCREMENT THE FILE NUMBER 

-BYTE «1 ,-1 

-WORD FILE 

MOV (PC) +,a(PCi+ INITIALIZE THE BLOCK NUMBER 
-BYTE 9,377 ;SET BYTE O TO 0 AND BYTE 1 
WORD at ck :TO THE 1°S COMP. OF BYTE 3 
BR G0 WRITE FILE GAP 


TALL DATA RELIABILITY MAINDEC-11-DZTAE-C MACY11 27(1006) 17-MAR-77 14:55 PAGE 23 
DZTREC.Pil 17-MAR-77 14:52 “FORMAT” ROUTINE 

95s SASSSLASATTLASASTATTSTSS EDA SOSTSTPADSSSASTATSTAS PITTA TDADSTASASS STADE SS 
3 SSALPPLISLELSTSTITTAESSTTPTADPSDTATTITEVEDPLEATSTTPTTS STITT STASTS SSS 
357 SLSISEITISIILASTTSSELTIOETSTATATDTASASTDOA SATS OATADA PSEA SESDSPSSA TSS 
328 SSSLSILIPTLPELTEESASTATTSTAETTATTAATSTATTIPTATATETAADSTASTASAD ASSAD AS AST 
er .SBTTL “READ ONLY” ROUTINE 

She 5p RARER EEE EEA R EERE REEL EERE EERE EEE EELS REL EE PELE ES ES 

=F Nee eee erie titi r tir ir tris ictritsi rir irsy 

re 

or ; THIS ROUTINE PERFORMS THE FOLLOWING SEQUENCE 

367 : 1. REWIND TO BOT 

368 ; 2. READ B06 0 

369 . 3. CHECK FOR SYNC ERROR 

972 . 4. CHECK FOR DATA ERROR 

971 : A. DATA iw OCCURRED 
$72 : . Fock 4 yg: 

73 : ) BACK BLOCK GAP 

74 : B: ) GOT 

37 ; 2.) Te (MAXRDS ) 

97. : A.) CWRTRYS)<(MAXERR) GOTO S. 

77 : B.) (WRTRYS)=(MAXERR) GOTO SEOP 

$7 $ B. NO DATA ERROR --- GOTO S. 
973 . S. UPDATE THE BLOCK NUMBER 

380 . 6. END OF FILE? 

981 : A. NO --- GOTO 2. 
382 : B. YES 
983 : 1.) UPDATE FILE NUMBER 

984 : 2.) RESET BLOCK NUMBER TO 0 
9es : 3.) SPACE FORWARD FILE GAP 
os : 4.) GOTO 2. 

388 Ss REE EE ERLE REESE AEE EEE EEA EERE EE EE EERE REESE BEES EERE EE ES 
989 002562 READONLY: 
990 002562 012737 003562 OO1IDE MOV #READONLY , J#SLPADR i Ag SCOPE LOOF ADDRESS 
991 003570 104401 013265 TYPE # READ 
392 003574 Bo47aP 007564 JSR Pc” JeTPORV ‘50 *TYPE DRIVE To BE TESTED 
993 003600 104401 901203 TYPE L 
994 003604 012737 MOV (PC) +, acPC)+ ; INITIALIZE THE BLOCK NUMBER 
995 003606 000 277 .BYTE 0,377 ;SET BYTE O TO O AND BYTE 1} 

996 003610 001306 “WORD BLOCK :TO THE 1°S COMP. OF BYTE 0 
9S7 GO03bie 612737 MOV (PC )+,a(PC + PAR OS THE FILE NUMBER 
998 003614 900 377 -BYTE 0,377 i SET BYTE QO TO QO AND BYTE 1 
999 O03616 001304 “WORD FILE :TO THE 1°S COMP. OF gYT E 5 
1090 SIILELILILILLT ATLL LAE LA SEEIELELEDES hy EER Ae LELELL PLES 
1001 “REWIND” TO “BOT” 
1902 ALVLIIEITTTITTIALTLLTALELAS SLIFAESLILEELESAEOEEOAGGOTEPLGEEDLELELMEELP EECA ES 
1003 003620 012700 901612 MOV #PARMBK , RO :RO=1ST ADDRESS OF PARAMETER BLOCK 
1004 03624 004737 006756 JSR PC g¥REWIND ;G0 WIND 
1005 003630 105737 OOl6le 1$: TSTB a4PAR :WAIT ON FLAG 
1006 003634 001775 BEO 
1007 O03636 1G0004 BPL 48 ;BR IF NO ERROR 
1008 003640 004037 oDsS53t JSR RO, ad&CSRERR :G0 TO CSR ERROR CHECK 


1999 003644 000137 oD4412 TMP BMBF ocrppyeyp-pfG,70 END-OF-PROGRAM 


, 
O44 


4. 
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SETUP FOR “READ” 
° PPOLETESAPTEIT EET C7 SAA e EEA EEERE LETT EOI OILS ES CLES EDEL Lee e eee SaT EE TE 
903650 O04737 ocDb220 ig: JSR PC, J#SETUPR FOR “READ” 
093654 000417 BR :G0 START A READ 
AAA ddd ddddddddddddddd 
: G"--IF SCOPE OR SOFT DATA ERROR 
SASSAIIPLISTELPETMISTTIAETSTATAATPEAPTTTATLPTSTATALPEDEATDATAALETS SESS 
003656 012737 003714 oC1106 4s: MOV #53, J#SLPADR -SETUP THE SCOPE LOOP ADDRESS 
003664 012700 oO01612 MOV #PARMBK RO :RO= 1ST ADDRESS OF PARAMETER BLOCK 
003670 737 O06742 ISR PC g4BSBG 
003674 105737 OOlbi2 4$; TST g4PAR {WAIT ON FLAG 
003700 001775 BEQ 
903702 100004 BPL eg -60 TRY TO REREAD 
903704 004037 005536 JSR RO, J#CSRERR :G0 CHECK CSR ERROR 
903719 000137 oo4412 JMP aeseoP :60 TO END-OF-PROGRAM 
LLL LEAL LILLE 
AD” BLOCK OF DATA 
LMT LAVAL LI IUI 12 ILLIA ISAETOFFEASSTASA ASA AALS TALES SA 
714 012737 003656 OO1106 $$: MOV #3$ , J8SLPADR :SET THE LOOP ADDRESS i 
003722 012700 OO16le MOV SPARK, RO :RO=1ST ADDRESS OF PARAMETER SLOCK 
003726 9004737 006732 JSR #READ GO TO READ 
003732 105737 OO1612 bS: TSTB SC DORNBK :WAIT ON FLAG 
003736 0017 BEQ 6$ 
003740 100004 BPL 7§ :BR IF NO ERROR 
003742 004037 o0s536 ISR RO, J#CSRERR :GO TO CSR ERROR CHECK 
003746 000137 o04412 IMP aesEOP :GO TO END-OF-PROGRAM 
palette AA Sigh AEA G REA MA SEILILELPALILEDEPLPLELEAPTLSDPESSDL DL EDS 
CHECK FOR SYNC ERROR 
5 Sy SISPOPLEOLAAAEVATAATEELOSEOATLELISESLACALEASSATLTASASASASAAS ASSESSES 
003752 004737 oDses4 $5. JSR PC, aBSYNCK :GO CHECK FOR SYNC ERROR 
003756 090403 BR 8S" : RETURN HERE IF NO ERROR 
003760 104002 ERROR 2 :SY Ne ERR 
003762 000137 cowie IMP aaSEOP :G0 TO A -OF -PROGRAM 
SMIIIILILILT LLL LILI LLL ELLA TELL ITD EAD DEY FEF FASE 
CHECK FOR DATA ERROR 
LL, eae re eee Ge ae 
003766 004737 006356 Og: ISR PC, a#DATCMP :GO CHECK THE DAT 
003772 00041! BR 38 ; RETURN HERE IF NG ERROR 
003774 104001 ERROR :DATA ER 
3776 OO4037 oDESSO ISR ho, aHCNTSFT COUNT SOFT ERROR 
o04002 000725 BR 3$ :TRY TO REREAD 
904004 004037 o06606 ISR RO, J#CNTHRD :COUNT HARD ERROR 
004010 go04de BR :MOVE TO NEXT BLOCK 
004012 000137 oo441e IMP aeSEOP :TO MANY HARD ERRORS 
004016 coooo4 COPE 
PLETE TALL LILLE LL FOLSFAFELA FSF AEF PAPE PEEPS FEEL 4 
IF LAST FILE OF LAST BLOCK GOTO CKEOTS 
A SPIIIALLEP TILL ILT PELL LTTALAD ED ILEPIATEPDPLEYETALL AEDES CEELAEFSELELEL ESL E 
004020 013737 001260 001224 MOV DeMAXRDS , A#RDTRYS ;RESET THE REREAD TRYS 
4026 122737 901236 901304 CMPB OHLASTFL, aaF ILE ye AST FILE 
004034 003007 BGT 10 NO 
004036 123737 001234 001306 CMPB ss ABLASTBK, J#BLOCK :LAST BLOCK 
904044 103003 BGT 10$ :BR IF NO 
OC4O4E 005237 o0l212 INC DeEOTS : COUNT END-OF-TAPE 
oo4#os2 900s44 BR CKEOTS ; CHECK FOR END-OF -PASS 


_— - ee ee ~~ 6 <2 -= a 


GO4 


LIL LSSSS SAE SIFILSPEEALAASAEES ES PAELELAILPLPLAELEPEDALEEAEEAA AE: PP 


HO4 
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1067 H UPDATE BLOCK # 8 FILE & 
1068 SSLSSSSSATLTSIASTASATAETATPAASSESLEDASSD PSSA AADSAS POSADA AAAS SS ASSTS 
te ae O$: 
1 4054 062737 ADD (PC)+,a(PC)+ ; INCREMENT THE BLOCK NUMBER 
1071 QO4OSE 001 377 BYTE 1,ol 
1072 OO4OBD 001306 -WORD BLOCK 
1073 QO04062 123737 001310 901306 CMPB @#F ILESZ, J#BLOCK ; TIME FOR A FILE GAP? 
1074 004070 003267 BGT es :BR IF N 
1075 004072 062737 ADD (PC)+,a(PC)+ ‘INCREMENT THE FILE NUMBER 
1076 004074 001 377 -BYTE l,-l 
1977 004076 001304 “WORD FILE 
1078 004100 012737 MOV (PC)+,a(PC)+ ; INITIALIZE THE oo — 
1079 004102 009 377 -BYTE 0,377 i967 BYTE QD TO OA Byte A 
1080 004104 091306 . WORD BLOCK O THE 1°S COMP. oP BYTE 0 
1081 SLALILISTESLTTIITIIPLOVETTATTDTELEADALADETTMSPLPOPEDTSATL TATED EPSD ED 
1082 : “SPACE-FORWARD-F ILE-GAP” 
1083 SLATEFITOTSSATSIOGVATLASSPLELTTESITESTTTATATTSEASALOTSTATPRLLTLD ELPA ES 
1084 OO4106 012700 o0l6l2 MOV Aap RO ;RO=1ST ADDRESS OF PARAMETER BLOCK 
1085 O04112 004737 906746 JSR aeSFeG -60 TO SFF 
1986 OO4ii& 105737 OOl612 118: TST A EPERN MBK ;WAIT ON FLAG 
1087 OO04%le2 001775 BEG 11$ 


1088 004104 100251 BLO :G0 READ 
1089 004126 004037 oossa¢ isk RO, 3#CSRERR G0 CHECK CSR ERROR 
1090 004132 000137 oo4412 a#$£0 ;G0 TO END-OF-PROGRAM 
; 
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— <b = bs pa ba 9s pw p+ 2 pe pe 
Lan | on] oe] 
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TALL DATA RELI 
TREC.P1l 
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012737 


, 000137 
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7 
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004136 
013304 
007554 
001203 


377 


001612 
006756 
O0lbie 


005536 
004412 


001612 
006722 
001612 


OCSS3é 


READ ONLY” ROUTINE 


SALSSSSSAISSSIATIASTTAAATPDITATTSAATSSTAS SSAA S EIS ATAAATASASSASSAAS ASA S 
SSSPLLTIFILLSSASSTASTISSATATSSAAAIAS STATS ISSASASTA LASS LSASAASAAAA SSAA SS 
HALA AAA AAA 
SSASSPOLATASATSITSALIATAATAAAAATS SAAT AA TASS SAES SISA PIT ESTAS ASA SSAA 


. SBTTL “WRITE ONLY” ROUTINE 


fy RERERRAAE RARER ALAR ALAS ALAA ERA A ARAL AL AL RAL EA AA RASA LAL AL ALE LASALLE 
fy RARER REAR ER ERA A EERE RARER AE ERA ARLE LALLA ARAL ALAS LALA LE LEAA RELEASE 


— ROUTINE PERFORMS THE FOLLOWING SEQUENCE 
. REWIND TO BOT 
. WRITE FILE GAP 
. WRITE BLOCK OF DATA 
UPDATE THE BLOCK NUMBER 
END OF FILE? 
NQ_--- GOTO 3. 


A. N 

B. YES 
1.) UPDATE FILE NUMBER 
2.) RESET BLOCK NUMBER TO 0 
3.) GOTO 2. 


satya 


ert irtrrttriiititrtttittrittrtttitititiitttttiitttttttttt titi ts 


WRITEONLY: 
001106 Ov RT TEONLY,¥SLPADR i SETUP uaGOPE Lo LOOP ADDRESS 
JSR Pc a8TPORY ‘TYPE DRIVE 10 "BE TESTED 
MOV tPC)+,a(PC)+ s INITIALIZE THE BLOCK NUMBER 
.BYTE 0,377 :SE? BYTE O TOO AND BYTE 1 
. WORD tress : THE b e fk COMP. OF BYTE 2 
MOV (PC)+, 3(PC)+ ‘INIT? - z THe FILE NUMBER 
.BYTE 377 :SET BYTE O TO O AND BYTE 1 
OR :TO THE .. g COMP. OF BYTE 


“WORD Pree 
LDIEPITALL TIA LVATTALAA ADIL LL ED ETAT LS ETTTAA AYALA ATED E MASEL DELLE 
“REWIND” TO “BOT” 
ARAL ATE SAIL ISLIP LALESASEOGOTLATEESTALAEL EAA ES AE 
MOV #PAR sRO=1ST ADDRESS OF PARAMETER BLOCK 
JSR eC saeRE INO ?GO TO REWIND 


1S: TS1B auPAR :WAIT ON FLAG 
BEQ a 
BPL 45 :BR IF NO ERROR 
ISR RO, J#CSRERR :GO TO CSR ERROR CHECK 
IMP a#sEoP :GO TO END-OF-PROGRAM 


IIIT LILLIA TAL EDAD LEE ALLELE ELTA DEL PELTED AA B bhEEEE 
“WRITE-F ILE-GAP” 


S ALLUUBLTAAAALIFPASEAIDETEE AES SELPLELEPLELEDELPEEDDAPELEELLELDES ELE Shid 
$: 
MOY #PARMBK RO ;RO=1ST ADDRESS OF PARAMETER BLOCK 
ISR PC, aBWFG : 
38: iSTe a ¥PARNBK “WAIT ON FLAG 
BPL 4g ;BR IF NO ERROR 


JSR RO, J#CSRERR :G0 TO CSR ERROR CHECK 


er we ee ee ew . -_—_ -~-« <_<. - 
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004250 000137 o044le IMP asSEOP ;GO TO END-OF-PROGRAM 


004254 000137 904364 JMP TS 
ALAA AAA AAA AA A Add A bbddddddddddddddddddddddddddddddddddddddd 
TE" A BLOCK OF DATA 
ELL 
oo4260 004737 O0607e 4s: JSR PC deSETUPW ;GO_ SETUP FOR “WRITE” 
poses 012737 OO4e7e 001106 MOV #5$, J#SLPADR SETUP SCOPE LOOP ADDRESS 


2 S$: 
e7e 012700 O0lble MOV #PARMBK , RO ;RO=1ST ADDRESS OF PARAMETER BLOCK 


004737 0 6726 ISR PC GaMRITE :60 TO WRITE 
108737 1612 6S: TSTB SEP rREK ‘WAIT ON FLAG 


004305 

004319 100006 BPL 7$ ;BR IF NO ERROR 
004312 004037 005536 JSR RO, d#CSRERR ;60 TO CSR ERROR CHECK 
004315 000137 OO044le JMP aus OP ;G0 TO END-OF-PROGRAM 
004364 JMP aeCKEOTS 


7$: SCOPE 
SALLILIILTIITLISLDIISTTTILL TELAT AAT TEATAAS SDAA AAAL EAD T TIAA ESL 
UPDA 


; TE BLOCK # & FILE & 
S ALLILIGL LOL TUG LT LUAL ALL TEED ALI ULILLLTILLALL ELLA 


004330 062737 ADD (PC)+,a(PC)+ ; INCREMENT THE BLOCK NUMBER 
004332 001 377 .BYT =i 


4 1306 a BLOCK 
004336 123737 001310 001206 CHP gaF ILESZ, HBL OCK : TIME FOR A FILE GAP? 
004346 062737 ADD (PC)+,3(PC)+ INCREMENT THE FILE NUMBER 


901 : 
004352 001304 "WORD FILE 
004354 012737 MOV (PC)+,a(PC)+ sINITIALIZE THE BLOCK NUMBER 
004355 905 377 .BYTE 0,377 :9ET BYTE 0 T0 G AND BYTE ! 
004365 001306 "WORD BLOCK 6 THE 1°S COMP. OF BYTE & 
904362 000720 BR 2$ $e oRt a VTE GAP 


> Fn 


et 
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DON ero rr rrr or uunuUuUMUUMUEe i 
= wuwiut 1 
RERERRRSRE eae tal ae Sata ardal ate 
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1180 SSLLPLOPITTPVTSEATAITTTTATAATTTETATTSSAPTTAATATTEPTI TASS STEST SSAA SASS 
113) SALSPPLILASTTTTSTIELLTPTIATIS TT EITT AS LEP DELIA DT ITS LISITI AILSA T 
1183 .SBTTL CHECK “EOTS” 
1185 3 5 REA RLAR ERR A AL ELLE LEE EERE AEE EAA H ERE REE RE RE ELE LE EERE REALE 
; ti 5 REELERE REL EAEL ALARA EERE ERA EERE RELA LEE ELE RRL EL RL ERLE AEL EES 
i188 ;WHEN A “FORMAT” OR “WRITEONLY” PASS HITS “EOT” OR A 
1189 !"READONLY” PASS READS THE LAST BLOCK OF THE LAST FILE 
1196 ! THEY WILL COME HERE 
i192 1. (E0TS) IS CHECKED 
i193 : A. (EOTS)=(MAXEOT) GOTO SEOP 
1194 : 8. _FQTS) « (MAXEOT) GOTO 2 
i195 : 2. SUR«B> 
1196 : a. “VEE -- GOTO SEOP 
1197 : B. NO -=- GOTO LOOPER 
1199 : © SEK RELESERESEAHREA EERE ES ASA AA ASRS RELA R ARAL AAERE REALL EAAA EAA AZ ES 
1200 004364 op0004 AkEOTS: SCOPE 
1201 004366 023737 O01212 o01264 CMP DKEOTS, IRMAXEOT ;MAX. EOTS OCCURRED? 
1202 004374 0020 BGE !BR IF YES 
1203 004376 032777 OOO400 174534 BIT 8SWO8, ISWR IF SWR<O8> = 1 
i204 g04404 oolo02 BNE SEOP : GOTO END-OF - TEST 
004406 000137 cde774 IMP JSLOOPER :NO=-LOOP 


me ee ren i ee ee a ee 
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1207 .SBTTL END OF PASS ROUTINE 

1st : © SRERSRERERERRRERERESE ARERR A RES LAA RA RAHA ESHA KRAALALARALA LEX AELERE 

1210 i LINCRE MENT THE PASS NUMBER ($PASS) 

lell bee nEND pass” 

lele #IF THERES A MONITOR $0 19 IT 

1213 ;#IF THER ISN’T JUMP TO START 

1214 -*IF IT IS DESIRED TO HAVE a BELL INDICATE THE “END OF PASS” LOCATION 

1g15 :#$ENDMG CAN BE CHANGED TO 7 

1217 oo4le SEOP: 

1218 OO412 OO0004 SCOPE 

1219 004414 O0S067 174462 CLR $TSTNM ;;ZERO_THE TEST NUMBER 

HAL Gore] Geyer lon00d 1rwwe == Heeeoo,senss F/G Lon n Red: REE 

1553 rece 327 if {Beye . 1 00P? 

1223 004434 000001 SEOPCT: .WORD 1 

1224 OO4436 003137 BGT $DOAGN ss YES 

1225 OO444O 012737 MOV (PC)+,a(PC)+ : RESTORE COUNTER 

leeb OO444e 000001 SENDCT: .WORD 1 

lee7 OO4Y444 004434 SEOPCT 

1228 OOWN46 104401 004745 TYPE , SENDMG ;;TYPE “END PASS” 

le2e9 OO44Se 104401 OO474e TYPE SENULL *: TYPE A NULL CHARACTER 

1230 OO44SE 013700 op004e $GETY2: MOV ae4e. RO ser MONITOR ADDRESS 

1231 OO462 001525 BEQ SDOAGN :BRANCH IF NO MONITOR 

232 OO4464 O00004 SCOPE 

1233 nT a ee eee Suan Pe es oe 

1234 YPE END-OF-TEST STATISTICS 

1235 OL Eg 

1236 OOYW466 012700 001612 MOV ;RO=PARAMETER BLOCK ADDRESS 

1237 OO4472 004737 006756 ISR Pc RR RELEND :START A REWIND 

1238 OO4476 104401 013031 TYPE ,MSG1 :<CRLF>"### END-OF-TEST *##” 

1240 OO4SO2 104401 013056 TYPE MSG2 ;<CRLF>"SOFT ERRORS=" 

1241 OO4SO6 013746 001206 MOV deSOF TNM, -(SP) :PICKUP SINGLE PRECISION BINARY NUMBER 
1242 OO4Sl2 004737 007366 JSR PC, a8$SBeD “CHANGE IT TO DECIMAL ASCIZ 

1243 004516 004737 O07422 JSR PC} a#SSUPRS :TYPE WITHOUT LEADING ae 

1245 OO4S22 104401 013074 TYPE G3 ;<CRLF>"HARD ERROR 

1246 OO4S26 013746 001210 MOV SaaeDNe -(SP) : PICKUP SINGLE PRECISION BINARY NUMSER 
1247 O004S32 004737 007366 JSR PC, J#SSBeD ?CHANGE IT TO DE z 

1248 004536 004737 007422 ISR PC; d8SSUPRS ‘TYPE WITHOUT LEADING ZEROS 

1 42 10440 3112 TYPE <CRLF>"BYTES READ=" 

tse tists le Barats MOV weet TL -(SP) GET ROORESS ote DOUBLE PRECISION BINARY & 
1252 OO04SS2 004737 007172 ISR PC, J8S$DB2D + ORANGE 2 

1253 OO4SS6 904737 O07422 JSR PC; #SSUPRS :TYPE IT Thon LEADING ZERO 

1255 OO4S62 104401 013127 TYPE ;<CRLF>"BYTES WRITTEN=" 

1256 OO4S6E 012746 001220 MOV esr. -(SP) :GET ADDRESS OF DOUBLE PRECISION BINARY & 
1257 004572 004737 007172 JSR PC, a#$DB2D :CHANGE IT TO DECIMAL ASC 

1258 004576 004737 007422 ISR PC; aaSSUPRS :TYPE IT WITHOUT LEADING ZERO 

1260 0440 3 TYPE 3 <CRLF>”T 

leb1 SO EDE 1374 ote yi MOV snecTs -(SP) ; PICKUP SINGLE PRECISION 8 BINARY NUMBER 
let2 04612 004737 Boe ISR PC, asSSB2D :CHANGE IT TO DECIMAL ASCIZ 
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OZTAEC.P11 | 17-MAR-77 14:Se END OF PASS ROUTINE 
1263 004616 004737 007422 JSR PC, J#SSUPRS sTYPE WITHOUT LEADING ZEROS 
1S QONESE O4a7ao DoLese MOV. AECRSTFL, RO eCkUP THE CAST FIL : 

1 rita read INCB a8 Abs 1 TO MAKE IT & FF ILES 

See Sues bo4737 007366 Tg Be ong ae$SBe i AANA Tt TO" STACK 

1270 rata 004737 007422 JSR PC} augSeeD iGHANGE #1 ir thout Leap LEADING Re 2eROS 
1272 004646 104401 013202 TYPE ; CORLE >"BL OCK /FILE=" 

1273 OO46S2 013746 001310 MOV ste cz -(SP) :PICK UP SINGL PRECISION BINARY NUMBER 
1274 004656 004737 007366 ISR PC, J#$SB2D :CHANGE IT TO DECIMAL ASCIZ 
127s 004662 004737 O07422 JSR PC; J8SSUPRS TYPE WITHOUT LEADING ZEROS 
1277 OO4666 104401 001204 TYPE  ,SLF 

1278 SSLIILITATTTATLLTATTATTATILTALA LATTA A TATA AAS ETAAA IAAT DAL 
1279 CHECK HALT AT END-OF-TEST SWITCH 

1280 IMITATE ALI LA LILY 
1281 004672 032777 O01000 174240 BIT #SWO9, JSWR sHALT AT END-OF-TEST? 

1282 004700 001406 BEQ 100$ :BR IFN NO 

1283 004702 000000 HALT : YES 

1285 004704 022767 O00176 174226 CMP #SWREG, SWR ;USING S/W SUITCH REG? 

1286 OO4712 001001 BNE 20$ *NO- GET OUT 

1287 004714 194405 GTSWR GET VALUE 

1288 004716 20S: : CONTINUE 

1289 004716 100$: 

1290 004716 013700 oooD4e MOV a#42 RO ;; INSURE RO CONTAINS THE MONITORS 

1291 004722 001405 BEQ $DOAGN : RETURN ADDRES 

1e92 004724 Oo0005 RESET ?:CLEAR THE WORLD 

es Gree Geos mo es ee ae 

1295 004732 O00240 NOP He 

1296 004734 000240 NOP :ACTLL 

1297 004736 SDOAGN: 

1298 004736 000137 JMP a(PC)+ ; ;RETURN 

1699 p40 002630 SRTNAD: .WORD STR ART 

l 474 377 377 000 SENULL: :BYTE “NULL CHARACTER STRING 


1301 O04745 O15 42412 OC42116 SENDMG: .ASCIZ ces {1B END pass! 
1302 O047S2 OSO040 OS1501 Oodi22 
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1303 .SBTTL SCOPE HANDLER ROUTINE 
}aed HETWIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. 11 MILL INCREMENT 
1306 TROLS T 

1307 # fer MUGERT STEIN) Ni) rho THE a SLAY Rec. BISBEHENS :0>) 
1308 : #AND toad T OR FLAG ( 

1309 :¥ THE SulTcH oPT oN PROVIDER By orate ROUTINE nmr 5: 

1310 :*SW14 P ON TEST 

1311 CALL 

13ie x SCOPE ;;SCOPE=I0T 

1314 004760 SSCOPE: 

1315 004760 104406 CKSWR ;;TEST FOR CHANGE IN SOFT-SWR 

1316 004762 032777 oO40000 174150 1S: BIT #81714, aSWR ;;LOOP_ON PRESENT TEST? 

1317 004770 001025 BNE § E = 

1318 ;uueeeSTART OF CODE FOR THE XOR tisTeRsesse 

1319 004772 oOO0416 $xTSTR: BR 6$ ssf RUNNING ON THE sXOR” TESTER CHANGE 
1320 THIS INSTRUCTION TO A “NOP” (NOP=240) 
1321 004774 013746 oD0004 MOV S#ERRVEC, - (SP) Hod THE CONTENTS OF THE ERROR VECTOR 
1322 005000 012737 O0S020 oD0004 MOV #5$, a#e BERR VEC 5; SET_FOR TIMEOUT 

1323 005006 005737 177060 TST 381770 ME OUT ? 

1304 005012 012637 O00004 MOV eae OE ERRVEC i |RESTORE THE ERROR VECTOR 

1325 005016 o00404 BR $SVLAD -GO TO THE NEXT TE 

1326 005020 O22626 cs: CMP (SP)+, (SP)+ ?:CLEAR THE STACK AFTER A TIME OUT 
1327 005022 012637 oo0004 MOV (SP) +, JKERRVEC j RESTORE I ERROR VECTOR 

1328 005026 000406 BR SOVER’ ‘LOOP 0 PRESENT TEST 

1329 005030 6$:;##eBsEND OF CODE FOR THE XOR’ ee 

1330 005030 105267 174046 SSVLAD: INCB TSTNM ;COUNT TEST NUMBERS 

1331 005034 O11667 174046 MOV (SP), $LPADR t SAVE SCOPE LOOP” ADDRESS 

1332 105067 174037 CLRB = SERFLG *ZERO THE ERROR FLAG 

1333 016777 174032 174070 SOVER: MOV STSTNM, aQISPLAY : SOTSPLAY TEST N NUMBER 

1334 005052 O16716 174030 MOV SLPADR, (SP) rie UDGE RETURN ADDRESS 

1335 o0S056 900002 RTI :FIXES PS 
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174015 
174006 
002000 
005204 
173774 
173774 
000002 
173762 
020000 
OCS936 


001203 
173756 


004726 


000377 


174044 
174034 


173766 
173756 
173774 
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MACY11_ 27(1006) 
ROUTINE 


-SBTTL ERROR HANDLER ROUTINE 


= SE EEE 98 98 8 9 9 9 8 9 9 a a a 
: ATHIS ROUTINE WILL pee ERROR FLAG AND THE ERROR COUNT, 


; #SAVE 
;#AND GO 
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THE ADDRESS OF THE ERROR CALL 


Q TYPE 
fh led ig PROVIDED BY THIS ROUTINE ARE: 
INHIBIT ERROR TYPEOUTS 


#5W13=1 

:#5W10=1 

; ¥CALL 

: ERROR 

SERROR 
CKSWR 

7$ INCB 
aee 

V 

BIT 
BEQ 
TYPE 

1S: INC 
MOV 
SUB 
MOVB 
BIT 
BNE 
JSR 
TYPE 

20S: 

2S: TST 
BPL 
HALT 
CKSWR 

3$: 
CMP 
BNE 
HALT 

S$: 
TI 


R 
SBELL: .ASCIZ 


BELL ON ERROR 
N ; sERROR=EMT AND N=ERROR ITEM NUMBER 

si TEST, FOR. CHANGE IN SOFT-SWR ‘ 
SESFLG 
zs Hin Het THE FLAG GO TO ZERO 
STSTNM,@DISPLAY ; ;DISPLAY TEST R AND ERROR FLAG 
#81710, aSWR QN ERROR? 
1 tin = eae 
SBELL *RING BELL 

$ COUNT THE NUMBER OF ERRORS 
(SP), SERRPC ?GET ADDRESS OF ERROR INSTRUCTION 
setae SITE — AND SAVE THE ERROR ITEM CODE 
oer tia deur ::SKIP TYPEOUT IF SET 
2 si SKIP TYPEOUTS 
PC. TYPERR :GO0 TO USER ERROR ROUTINE 
, SCRLF 
aSWR ;;HALT ON ERROR 
3$ ;;SKIP IF CONTINUE 


#SENDAD, d#42 
6$ 


(297) 4377><377> 


;HALT ON ERROR! 
:;TEST FOR CHANGE IN SOFT-SwR 


yo dhe 11 AUTO-ACCEPT? 
3 3 BRO NCH IF NO 


99 


; RETURN 
;;ASCII CODE FOR BELL 


- — ee i ee — 
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s RHRELELAFLAELLLRA RATA EE ARAL RAS AALSSSSSSSSESSSSSSL SEAS HRE RELL SLES 


~ 
w& 
i i 


1378 turs ROUTINE WILL TYPEOUT THE ERROR NESSA S 
1379 005210 104401 001203 +YPERR: TYPE $CRL TYPE “CR” & “LF” 
1380 005214 O10046 MOV RO, Rt Ep) i SAVE RO 
138! O0S216 Oi0146 MOV Rl: -(5P) -SAVE R1 
1382 905220 ooso46 CLR -(§P) :PICKUP THE ITEM BYTE 
1383 Sose2e 113716 OO01114 MOVB 3aSITEMB, (SP) 
1384 005316 DEC (SP) ; ADJUST THE INDEX SO IT 
1385 005230 006316 ASL (SP) WILL WORK FOR THE 
1385 005232 006316 As (SP) ERROR TABLE 
1387 005234 006316 ASL (SP) 
1388 005236 116601 000001 MOVB  1(SP),R! :GET THE ERROR TYPE 
1389 905242 112600 MOVE  (SP)+'RO :GET THE ERROR NUMSER 
1390 005244 066190 o0s2s2 ") 1$(R15,RO FORM THE TABLE POINTER 
1391 905250 0900403 2 
1392 005252 001622 1$ TTEMSO 
1393 005254 01642 ITEMS] 
1394 005256 001732 .  YTEMSe 
1396 005260 012067 oD0002 2$: MOV (RO)+,3$ ; PICKUP “ERROR MESSAGE” POINTER 
1397 005264 10440) TYPE “TYPE "ERROR MESSAGE” 
1398 005266 000000 3S: 0 
1399 005270 104401 001203 TYPE SCRLF : TYPE "CR" 8 “LF” 
1400 005274 012067 sGo0902 MOV {RO)+,4$ :PICKUP “DATA HEADER™ POINTER 
140i 005300 104401 TYPE :TYPE “DATA HEADER™ 
te 005304 104401 001203 ™ OPE SCRLF CR LF 

1 L oe ee oe iT) 
1404 005310 060107 ADD R1.PC SPE pg THE DATA 
1405 005312 900402 BR RRORO 
1406 005314 900430 BR ERROR} 
130? 005316 000473 BR ERROR2 
1408 CSASATSSACATFIGAFAATAGTATAESFSLEEEPEELPASALAGTFETETVGALFEAETSASEFPAELES ES: 
1410 005320 o102e%6 RRORO: MOV Re,-(S ;SAVE R2 
1411 005322 912001 OV (RO)+,R1 :PICKUP THE “DATA POINTER™ 
1412 0053204 O12002 MOV (RO)+’Re :PICKUP “FORMAT” POINTER 
i413 005326 o00402 BR 2s 
1414 005330 10440! 013322 1$: TYPE MSG14 - 
1415 005334 012100 2s: MOV {R1}+,RO SceT ADDRESS OF DATA WORD 
1416 005336 001473 BEQ EREXT! ‘G0 TO EXIT IF O 
1417 005340 105722 TSTB ss (RR) + : TYPE DECIMAL OR OCTAL” 
1418 O05342 001003 BNE 3$ IF DECIMAL 
1419 005344 O1i046 MOV (RO),-(SP) i SAVE ies FOR TYPEOUT 
1420 00534 104402 TYPOC ::60 TYPE--OCTAL ASCII (ALL DIGITS) 
1421 905350 000767 BR 1$ :GO GET NEXT DATA WORD 
1422 005352 O10046 38: MOV RO,-(SP) 
1423 095354 004737 907172 JSR PC Jas0B20 sCHANGE NUMBER TO ASCIZ 
i424 005360 062716 000004 ADD (SP) :TYPE & DIGITS 
1425 005364 012667 900002 MOV (s¢)3, 4s 
1426 005370 104401 TYPE CALL TYPE ASCIZ MESS SAGE ROUTINE 
1427 905372 Oco000 4§: .WORD 0 SADDRESS OF ASCIZ STR 


828 305374 O007E5 BR 1§ :G0 GET NEXT DATA ono 


' DOS 
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DZTAES.Pil  §17-MAR-77 14:52 ERROR TYPEQUT ROUTINE 
1429 tenon. MON ROD RL cB TCKUB THE “DATA POINTER FS FF IS 
1430 005376 011001 RRORI: MOV (RO), R1 ATA POINTER” 
43) 005400 013146 MOV SPRL SS -cSp) ; + SAVE athi's JFoR TYPEOUT 
14 4 O44 TYPOC ie TPE TAL A L DIGITS) 
1333 BBENBS = APz78S oo0003 oon008 move” 83,28 ‘PRINT As BBR ee SAG Ph hee 
1435 D 2 DECIMAL #’S 2 TIME 
1436 005412 104401 013323 18: TYPE MSG14 
1437 OO0S416 005327 DEC {PC )+ bowe ANOTHER # ? 
1438 005420 900000 23: .WORD 0 
1438 005422 O014le BEQ 4§ ;BR IF NO 
1440 005424 012146 MOV (R1)+,-(SP) s YES-—-PICKUP ADDRESS OF # 
1441 005426 004737 007172 ISR Pc, as$DB20 :G0 CHANGE TO DECIMAL ASCIZ 
1442 005432 062716 OO0004 ADD #4) (SP) ‘ONLY TYPE THE LAST 6 DIGITS 
1443 005436 O1l2667 900002 MOV (SP)+, 3$ ‘SAVE ADDRESS oF ASCIZ STRING 
1444 005442 104401 TYPE ‘CALL THE TYPE ROUTINE 
i445 005444 000000 33: .WORD 0 ; POINTER GOES HERE 
1446 005446 000761 BR 1 
1447 Q054S0 013101 4§: MOV a(R1)+,R1 PICKUP FUNCTION INDEX 
144g 005452 016167 oos46e 000002 MOV BADFUNIRI) ,5$ ;GET THE FUNCTION MESSAGE 
1449 905460 104401 TYPE 
1450 O05462 o00000 S$: .WORD O MESSAGE POINTER GOES HERE 
1451 005464 o0042 BR EREXT2 XIT 
1452 : THIS TABLE CONTAINS THE POINTERS TO THE BOP ERENT ASCIZ MESSAGES 
1453 “FOR THE WE UNCTION BEING PERFORMED WHEN THE ERROR OCCURRED. 
1454 OOS46E 012067 BADFUN: MXWFG WRI TE-F ILE-GAP 
i455 005470 012106 MXURIT : WRITE 
1456 005472 012114 MXREAD : READ 
1457 OOSH74 012121 MXBSFG : BACK-SPACE-FILE-GAP 
1458 005476 012146 MXBSBG : BACK-SPACE-BLK-GAP 
1459 905500 012170 MXSFFG : SPACE-FWD-F ILE-GAP 
14680 005502 012213 MXSFBG : SPACE-FWD-BLK-GAP 
1461 005504 012235 MXRWND : REWIND 
1463 SSSPPELEPVESLPDPASTAOEELDVAEDEDADAPDPEATPTEVAEDDEDHOPPEDEEDEIDELEDEEEEES 
1464 OOSSO& 011900 ERROR: nov (RO), RO sPICKUP THE para POINTER 
i465 005510 905719 TST (RO) TALL DAT YPED? 
1466 005512 001406 BEO EREXT2 
1467 005514 013046 MOV 3(RO)+,-(SP)  ;:SAVE atRO)+ FOR TYPEOUT ee 
i468 005516 104402 TYPOC :;G0 TYPE--OCTAL ASCIT(ALL DISITS) 
1469 005520 10440i 013223 TYPE MSG14 
1470 905524 000771 BR 1$ ‘LOOP 
1472 VUTSPPILGLULASAAIASLAEOLTLAETOEROPOPLESOLETTTPOPEEOHEPPEPPEER EL EP DAES 
i472 OOSS26 012602 bRExT1: MOV (SP)+,R2 sRESTORE R2 
1474 005530 012601 EREXT2: MOV (SP)+/R1 "RESTORE 1 
1475 90553e 012500 MOV (SP)}+°RO : RESTORE RO 
i476 O05634 906207 RTS pe RETU 
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DZTAEC. 17-MAR-77 14:52 ERROR TYPEOUT ROUTINE 
1479 HAA AAA VISIT PFISTTAAAASASASAASSASSSASSAS ASA A A 
1480 L/S 7 SATAITASSTAITATAATAAAASASASTAAAAAAASAASSAAAAEOSASSAAAAAAAAEAAAAAAS AA 
1481 *SBTTL DETERMINE CONTROL AND STATUS ERROR 
1483 005536 113737 001304 001162 CSRERR: MOVB asFILE, aeSREGO GET THE FILE NUMBER 
1484 905544 113737 001306 OO1166 MOVB  a#BLOCK dNSREGE -GET THE BLOCK NUMBER 
1485 9055S2 013746 007170 MOV 3 SFUNLOC (SP) GET THE LAST FUNCTION 
1486 005556 042716 177761 BIC SICFUNCT ION (SP) :CLEAR AWAY THE JUNK 
1487 S62 011637 001172 MOV (SP). aaSTMPO ; SAVE THE FUNCTION CODE 

4 BOeeee 113 001612 900001 MOVB : aPaArEX, 1(5P) ‘COMBINE THE ST/ER WITH 
1489 005574 012601 MOV (SP)+,R : THE FUNCTION 

1490 005576 00 CLR (SP)’ ‘FIND OUT WHAT CAUSED THE ERROR 
i491 005600 032701 001000 BIT SOFFLINE, RI OFF LINE? 

1492 005604 O01 BNE :BR IF YES 

1493 905606 032701 010000 BIT SWRTLOCK,R1 ‘WRITE LOCK? 

1494 905612 001021 BNE c$ ‘BR IF YES 

1495 005614 032701 o20000 BIT #LEADER,R1 :BOT/EOT? 

14 S620 001015 ‘ BN 45 :BR IF YES 

14 2@ 032701 oo4000 BI #FGAP,R1 ‘FILE GAP? 

1498 0010! BNE 3 BR IF YES 

1499 005630 032701 ooepc0 BIT #TIMERR,R1 : TIMING? 

1500 005634 0010 BNE 2g :B YES 

1501 005636 032701 o4o00O BIT #CRCERR, R1 :BLOCK CHECK? 

1502 o0S642 001001 BNE 1$ :BR IF YES 

1503 005644 90521 NC (SP) : & = UNKNOWN 

1504 00564 005216 1$ TNC (SP) : S = CRCERR 

1505 005650 005215 2g INC (SP) : G = TIMERR 

1 005652 005216 33 INC (SP) : 2 = FGAP 

1507 005654 905216 4g TNC (SP) : 2 = LEADER 

1508 005656 005216 S$ INC (SP) : 1 = WRTLOCK 

509 005660 bg 

1510 OOS66D 106316 ASLB = SP) :POSITION INDEX 
1511 O0S662 062607 ADD (SP)+.PC :BR TO THE ROUTINE 
1512 O0S664 O00406 OL.ERR 

1513 O0S666 000407 BR WL. ERR 

1514 005670 O00410 BR CL.ERR 

i515 005672 O00462 BR FG.ERR 

1516 74 00463 BR TM. ERR 

1517 005676 OO0464 BR BC. ERR 

1518 005700 o0047e BR 

1520 o0S702 104101 OL.ERR: ERROR 101 sORIVE IS OFFLINE 
ibel 005704 d0g200 RTS RO 

1523 OOS70B 104102 WL.ERR: ERROR 102 sDRIVE IS WRITE LOCK 
1564 905710 000200 RTS R9 

1S2e= 
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DZTAEC.P11 § 17-MAR-77 14:52 DETERMINE CONTROL AND STATUS ERROR 
1526 O0S712 922737 O00000 001172 CL.ERR: CMP BXWFG, I8STMPO ‘FUNCTION "WRITE FILE GAP”? 
1527 005720 OO1014 BNE 2 :BR IF NO 
i528 005722 1$: ; 

1529 005722 162737 suB (PC)+,a(PC)+ sDECREMENT THE FILE NUMBER 
5 poses 0 377 -BYT -1 

1531 001304 WOR tLe 

1532 005730 113737 001304 001236 MOVE @&FILE,d#LASTFL ;SAVE LAST FILE NUMBER 
1533 005736 113737 001310 001234 MOVB af ILESZ, a#LASTBK ‘AND LAST BLOCK NUMBER 

534 005744 001234 DEC 

1535 005750 o004eS R ;8R IF NO 

1536 005752 022737 oOOONd2 o01172 23: CMP BXURITE, aaSTMPO ; FUNCTION “WRITE”? 

i537 005760 001025 BNE R IF NO 

1538 005762 113737 001304 v01236 MOVB JeF ILE DeLASTFL ‘SAVE LAST FILE NUMBER 
1539 005770 162737 SUB (PC)+, d(PC)+ :DECREMENT THE BLOCK NUMBER 
1540 905772 001 377 BYTE -1 

1541 905774 001306 WORD BLOCK 

1542 005776 113737 001306 001234 MOVB  a#BLOCK, J#LASTBK ;SAVE LAST BLOCK NUMBER 
1543 006004 163737 007164 O0l220 SUB JaCBCNT, JRWBYTTL ; SUBTRACT RESIDUE COUNT FROM 
1544 006012 005637 001222 SBC JeWBYTTL+2 THE TOTAL WRITE COUNT 
1545 006016 005137 001306 COM a#BLOCK IF NO BLOCKS IN THIS FILE 
1546 006022 001737 BEQ 1$ ; BACK TO LAST FILE 

1547 06004 O22020 3s: CMP (RO)+, (RO)+ ‘ADJUST FOR RETURN 

1548 006026 005237 o01212 INC aeEOTs :COUNT END-OF-TAPE 

1549 006032 o00401 BR c$ 

1550 006034 104103 4g: ERROR 103 :"CLEAR LEADER” ERROR 

1551 006036 o00200 cs: RTS RO : RETURN 

1553 OC604O 104104 FG.ERR: ERROR 104 -“FILE GAP ERROR" 

1554 006042 oo0200 RTS RO 

1556 OO6044 104105 TM.ERR: ERROR 105 : TIMING ERROR 

1557 006046 o00200 RTS RO 

1559 OO060S0 104106 BC.ERR: ERROR i06 ;BLOCK CHECK ERROR : 
1560 006052 022737 cOco04 oD1172 CMP #XREAD, 2#STMPC !IF FUNCTION ISN'T A READ 
1581 OO6060 O01001 BNE 1$ :TAKE THE “EOP™ EXIT 

1562 006062 922020 CMP (RO)+, (RO)+ -ADJUST FOR RETURN 

i5t3 006064 ood208 1S: RTS RO 

1565 OOG06E 104197 ¥.ERR: ERROR 


107 ; UNKNOWN INTERRUPT 
isé_ 006070 000200 RTS RO 


oe oe ere we @ ow - -— 


Tall DATA RELIABILITY _MAINDEC-11-DZTAE-C MACY11 27(1006) 17-MAR-77 14:5S PAGE 37 


DZTAEC. P11 17-MAR-77 14:52 DETERMINE CONTROL AND STATUS ERROR 
1362 $3 SERA LRELSLAAALARAAAAEASRE ARLE RAS AR AL SAARSSRAARERAARASAESA RASA LASSE 
1568 :: SEALALARAAAAALALAAALAASA BAAS AALAARA RA ALELASLRAAELRAAAE AAAS ALELLSESE 
i583 SBTTL ROUTINE TO SETUP FOR A WRITE OPERATION 
1571 : THIS ROUTINE WILL SETUP THE BYTE COUNT, DETERMINE THE PATTERN TO 
1572 :BE WRITTEN ON TAPE, ADD THE SIZE OF THIS BLOCK TO THE TOTAL 
17 NUMBER OF BYTES TRANSFERRED AND CALL THE ROUTINE TO FILL THE 
1575 
157 s $ CALL 
1577 : JSR PC, J8SETUPH 
1578 
is7 
iS8C GC6S72 013700 00130 SETUPW: MOV J#BLOCK, RO :GET THE BLOCK NUMBER 
1581 906075 042700 ered Sts tates KEEP He BATTERN 
1265 Ope tos 104 OEE 7 001312 o01220 Ab Bx (RO), asWBYTTL ‘AbD THE BLOCK SIZE 19 THE TOT 
# AL 
1584 O06i!e pees? 001222 ADC aKa L+2 NUMBER 0} ote tzE TTEN 
1585 CO6116 018037 001312 oo01620 MOV BLKSZ(RO) , J#PARMBK+ :SET THE BYTE C 
1586 006124 9016000 001352 MOV PATS(RO).RO :GET PATTERN POINTER 
1587 006130 004737 9006136 ISR PC, a#F ILL ; 60 FILL WRITE BUFFER 
1588 006134 900207 RTS PC :RETU 
Pe) 
1590 eerste erect terete eee tte ttt trite ttt ttt ttttttrtitttty 
1331 “SBTTL ROUTINE TO FILL THE BUFFER BEFORE @ WRITE 
1593 : MOV #PATADR, RO :1ST ADDRESS OF 9 BYTE PATADR 
1594 . JSR PC, JeF ILL 
1595 : THE BUFFER IS FILLED AS FOLLOWS: 
1597 :BYTE® DATA 
1598 : 
1599 :0001 FILE NUMBER 
1600 :0002 FILE NUMBER COMPLEMENTED 
1601 :0003 BLOCK NUMBER 
1602 :0004 BLOCK NUMBER COMPLEMENTED 
1603 :0005 DATA PATTERN 
1604 :0006 DATA PATTERN 
1605 : # + + 
1606 : + + + 
1607 : # + * 
1608 :1027. DATA PATTERN 
1608 :1028. DATA PATTERN 
1611 O0613€ FILL: 
i612 906136 O10046 MOV RO,-(SP) :;PUSH RO ON STACK 
1613 OO614O0 O10146 MOV R1.-(SP) : + BUSH R1 ON STACK 
1614 O06142 O10246 MOV Re. -(5P) H Re ON STACK 
1615 OO6144 O1O0346 MOV R3/-(SP) + Ee R3 ON STACK 
1616 O06146 012701 oogeno MOV #1024. /8..R1 :FILL 1024. BYTES WITH PATTERN 
1617 006152 Ole702 013464 MOV #BUFFER, Re :15T ADDRESS OF DATA BLIFFER 
1618 O06156 013722 001204 MOV OeF ILE, (RO}+ :FILE NUMBER AND ITS COMPLEMENT 
1619 OO6162 013722 9001306 MOV JSBLOCK, (Re)+ :BLOCK NUMBER AND ITS COMPLEMENT 
1620 006166 010003 MOV RO,R3 :SAVE FIRST ADDRESS OF PATTERN 
621 006170 910300 1S: MOV R3,R :RESET PATTERN POINTER 
1622 O06172 O12022 MOY CROI+, (R2)+ !MOVE THE PATTERN 
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HOS 


MACY11 27(1006) _17-MAR-77 14:55 PAGE 38 
ROUTINE TO FILL THE BUFFER BEFORE A WRITE 


MOV (RO)+, (R2)+ ; INTO THE BUFFER AREA. 
MOV ( RO)+, (Re)+ 

MOV (RO)+; (Re)+ 

DEC Rl 

BNE i$ 

MOV (SP)+,R3 ;POP STACK INTO R3 

MOV (SP)+,Re : IPOP STACK INTO Re 

MOV (SP)+,R1 ;;POP STACK INTO Rl 

re -_ ;;POP STACK INTO RO 


5p ERR RRR ERE LEE EE REAR AREER EARLE EERE EE EEEEE 
5 RARER RRR ERE ERLE REALE ERE AEE ERE E EEE E EERE RELEASE EE EEE 
TTL ROUTINE TO SETUP FOR A READ 


;THIS ROUTINE WILL SETUP THE BYTE COUNT AND ADD THE SIZE OF THIS 
;BLOCK TO THE TOTAL NUMBER OF BYTES READ. 


= CALL 

: ISR PC, SETUPR 

SETUPR: MOV J*#BLOCK, RO :GET THE BLOCK NUMBER 
BIC uiC15. ,RO ; KEEP MAX PATTERN 
ADD BrKsz¢RO: JeRBYTTL A D THE BLOCK SIZE TO THE TOT 
anc aeRBYTTL+ :NUMBER OF BYTES READ 
MOV BLKSz (RO). a#PARMBK+6 ;SET THE BYTE COUNT 
RTS PC : RETURN 

5s RERSAAEAAARAAERRSRA ERASE LE RA LAA LARA LEA A SLA AS RAAAAAALALAERELAE 

*SBTTL ROUTINE TO CHECK FOR SYNC PROBLEMS 

j THIS ROUTINE CHECKS THE FIRST FOUR BYTES OF THE DATA 

‘BUFFER TO INSU RE THE PROPER BLOCK WAS READ 

:BYTE 1 = FILE NUMB 

:BYTE 2 = FILE NUMBER COMPLEMENT 

:BYTE 3 = BLOCK 

!BYTE 4 = BLOCK NUMBER COMPLEMENT 

; CALL 

: ISR PC, J#SYNCK 

; NORMAL RETURN 

; ERROR RETURN 

SYNCK: MOV BBUFFER, RO ; ADDRESS OF FIRST WORD 
MOV (RO).R1 :CHECK FILE # WAS READ OK 
SWAB 1 :BYTE. 1 SHOULD BE THE 
ROD (RO)+, RL COMPLEMENT OF BYTE O 
BNE 2$ :BR IF FILE NUMBER READ WRONG 
MOV (RO), RI :CHECK BLOCK # WAS READ Ok 
SWAB :BYTE 3 SHOUL 
ADD (RO)+,R1 !COMPLEMENT OF BYTE 2 


a mm a er ee ee a ee 
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1679 006300 005101 COM RI 

1680 006302 001024 BNE 2$ :BR IF BLOCK NUMBER READ WRONG 

1681 006304 023740 001306 CMP J#BLOCK, -(RO) ‘MAKE SURE PROPER BLOCK WAS READ 
— 1682 006310 001003 BNE 1$ :BR IF AT THE WRONG BLOCK 

1683 006312 023740 001304 CMP JSF ILE, -(RO) :MAKE SURE PROPER FILE 

1684 006316 001416 BEQ 2s !BR IF IN THE PROPER FILE 

1685 006320 113737 001304 O01162 15: MOVE a@SFILE, a8SREGO 

1686 006326 113737 001306 001166 MOVE  a#BLOCK, a8SREG2 

1687 006334 113737 013464 001172 MOVB  a#BUFFER, a8STMPO 

1688 O06342 113737 013466 001176 MOVB SHELFFERIE, DaSTMP2 

1689 006350 062716 o00002 ADD #2, (SP) : TAKE ERROR RETURN 

1690 006354 009207 2S: RTS PC’ : RETURN 

1632 = LELRELHARHA SHEARS HEAR L SSA SLA SRE LAA S RASS RRARSLE RRA RALERRAAF REFLEX 

1633 ‘ABTTL ROUTINE TO CHECK THE READ DATA 

1695 : CALL 

1896, : JSR PC, DATCMP 

1697 : NORMAL RETURN :£RROR FLAG=O AND DATA IS GooD 

1698 : ERROR1 RETURN “DATA IS BAD ‘ERROR FLAG=7) 

1693 : ERROR2 RETURN :DATA IS GOOD BUT ERROR FLAG=1 

i 

1701 006356 013700 9001306 DATCMP: MOV J#BLOCK, RO ;GET THE BLOCK NUMBER 

170 006362 042700 177760 BIC ¥iCi5. ,RO “KEEP MAX PATTERN 

1703 006365 006300 ASL iXe 

1704 006370 O16001 001312 MOV BLXS2(RO) Ri PICKUP THE BLOCK SIZE 

1709S 006374 Ole702 013464 MOV HELE FER,Re IFIRST ADDRESS OF DATA 

1706 OO06400 912703 on0c04 MOV R3 ‘SETUP TO CHECK FILE AND BLOCK 

1707 O06404 012704 001304 MOV Irie, RY 

1708 O06410 005301 13: DEC RI :COUNT THIS BYTE 

1709 O06412 122224 CMPB 3 (R2)+, (RY)+ :CHECK IT 

1710 O06414 OO1015 BNE 4 5BR Ir BAD 

1711 006416 005303 DEC R3 AGAIN 

1712 O06420 001373 BNE 1$ -BR IF YES 

1713 OO6422 012703 vcooo10 23: MOV #8. .R3 :GET NUMBER OF BYTES/PATTERN 

1714 OO6426 O16004 901352 MOV PATS(RO),RY -GET FIRST ADDRESS OF PATTERN 

1715 O06432 005301 33: DEC R1 ‘LAST BYTE BEEN CHECKED? 

1716 006434 002437 BLT S$ -BR IF YES 

1717 OO6436 leeee4 CMPB ss (R2) +, (R4)+ :NO--CHECK IT 

1718 OO6440 001003 BNE 4 BAD 

1719 O06442 005303 DEC R3 END OF PATTERN? 

1720 SO6444 003372 BGT 33 :5R IF NO 

1721 OO6446 000765 BR 23 : YES 

1722 O064S0 005037 001124 4g: CLR JHSGDDAT 

1723 006454 005037 001126 CLR a#SBDDAT 

1724 OO6460 114437 001124 MOVB -(R4). J#SGDDAT :SAVE GOOD DATA 

1725 O06464 010437 O01120 MOV R4, a#SGDADR :SAVE GOOD ROORESS 

1726 006470 114237 O01126 MOVB  -(R2),a8$BDDAT :SAVE BAD DATA 

1727 906474 010237 OOll22 MOV R2, J8$BDADR :SAVE BAD ADDRESS 

1728 006500 O0S401 NEG RI’ : SAVE THE BYTE NUMBER 

1729 006502 O66001 o01312 ABD BLKSZ(RO) ih 

1730 OO6506 010137 901230 MOY 

1731 006512 113737 001304 oo1162 MOVB Bute. SESREGO 2 

1732 006520 113737 001206 OO11c6 MOVB aBL OCK, DeSREG2 : 

1733 OO6S26 O62716 O0000e ADD te, (SP) :SETUP TO TAKE ERROR] EXIT 


1734 OO06532 OO0405 BR &$ : TAKE ERROR] EXIT 


TQ11 DATA RELIABILITY 
DZTAEC. Pil 


ds = b= 2 bb bo pe te 
SG | 


006534 
006540 


BbeeNe 


CO&E04 


105737 
10000e 


B80? 


005237 
005337 


000200 


poses? 


pod200 


MAINDEC-11-D2TRE-C 
17-MAR-77 14:S2 


OCibie 


000004 


001266 
001224 


001260 
001260 
001206 


001224 


0 


oO 


0ie0& 


Olebe 


S$: 


6$: 


MACY11 27(1006) 17-MAR-77 14:S5S PAGE 40 
ROLTINE TO CHECK THE READ DATA 


TSTB a #PARMBK ;DATA_IS GOOD BUT WHAT ABOUT 
; THE ERROR ae 
BPL 6$ :BR IF ERROR 


G=0 
AOR ate iSeTUE TO TAKE + ERROR2 EXIT 


5p RRRRER ERE EERE EEE ERA RELL AE RARE LER ARAL RAL RAEREREL ARRAS EES 


. SBTTL 
;CALL 


ANTSET: 


COUNT SOFT DATA ERROR 


JSR RO, JUCNTSFT 
RETURN FOR SOFT RETRY 
RETURN FOR HARD 


INC aeSOF TNM 
DEC d#ROTRYS 


1$ 
MOV AJ#MAXRDS, a#ROTRYS 
SUB a ANAXRDS, , 2#SOF TNM 


TST (RO)+ 
RO 


;COUNT THIS SOFT ERROR 
;REREAD THE RECORD? 


{RESET REREAD COUNT 
DON’T COUNT AS SOFT 


;STEP OVER THE REREAD RETURN 
: RETURN 


- R 
EEE HBS HHG HE GHEE HEHEHE EH AEE HHH bee 


.SBTTL 
7 CAL 


ANTHRD: 


1$: 


COUNT HARD ERROR 
ISR RO, J#CNTHRD 
RETURN MORE ERRORS ALLOWED 
RETURN MAX. ERRORS HAVE OCCURRED 
INC J#HARDNM :COUNT THIS HARD ERROR 
CHP asHGRONM, , OBMAXERR :MAX. HARD ERRORS OCCURRED 
TST (RO)+ : TAKE FATAL EXIT 
RTS RO : RETURN 


TAl1 DATA RELIABILITY 
Pll 17-MAR-77 14 


DZTAEC. 


1804 


cece 


0 b+ bs bs po pe he bs be pe os pe Be 


wooo maonnmcmpimcdc 
Td bb 
OWONMMNEWMeO 


16 
006720 


010046 


000022 
0000¢e 
000022 
oo0dee 


ee 


MAINDEC-11-DZTAE-C 
:Se 


MACY11 27(1006) 


COUNT HARD ERROR 
3p SEHR HEAR SRS SESE RARE EEE EEE EE SEA HEE HEHE HEHE EE ERE EER EE 
-SBTTL SAVE AND RESTORE RO-RE ROUTINES 


5 SESE SE IESE SESE SESE SE SE SEE EE EE EE EEE HEHEHE HEHE EE HEHE EE EEE RE EE EEE 
:ASAVE. RO-RS 


;% 
; ¥TOP---(+16) 
;% +2---(+18) 
t% +4---RS 
te +6---R4 

;# +8---R3 

; ¥+10---R2 
;#+1e---Ri 
; #+14---RO 


SSAVREG: 


— RO-RS 
aC ALL: 


éRESREG: 


RESREG 


22(SP); 
22(S5P),- 


PO LN LR LOO LO LO LO LN 
SB ne te 


17-MAR-77 


14:55 PAGE 41 


;;PUSH RO ON STACK 
3 PUSH Rl ON STACK 


LL 
tT SAVE PC OF CALL 


iB STOR 
RESTOR 


;* "_SAVREG 
;*UPON RETURN FROM SSAVREG THE STACK WILL LOOk LIKE: 


PC OF CALL 
PS OF CALL 


; RESTORE PC OF MAIN FLOW 
; ;REST PS roe FLOW 


S 
; |POP STACK INTO RO 


TAl1 DATA RELIABILITY 
DZTAEC.P11 


1851 


wait ial a as 


2 bs bs be bs ho be pe pe he pe 
Lee] 


Ree 


17-MAR-77 1 


010746 


900207 


on callie” C 
4:52 


006724 
000040 
000166 


007162 
o0008e 
000143 
oo00de 


000191 
172170 


172244 


ee ee a 


MACY11_ 27(1006) 
SAVE AND RESTORE RO-RS ROUTINES 


17-MAR-77 14:55 PAGE 42 


5p SEH HE AEH AE AE HEHE EE EEE SEE EE EE SE EEE SESE SESE EE a 
CASSETTE PRIMITIVES ROUTINE 


. SBTTL 


;CALLED VIA 
;WITH RO POINTING TO: 


: 
: 
° 
' 
. 
s 
s 


WFG: 
FUNTAB: 


WRITE: 
READ: 
BSFG: 
BSBG: 
SFFG: 
SFBG: 


REWIND: 
: § 


IOCOM 


CHKRDY: 


CHANOK: 


DOFUN: 


MOV 
MOV 
MOV 
RTS 


JSR PC, (FUNCTION) 


0 
DRIVE # 


POINTER 8 “status /ERROR BYTE 
BUFFER ADDRESS 


BYTE COUNT 
PC, -(SP) 


PC,-<SP) 

WE GNTAB, (SP) 
#40, JTACSL 
CHKRDY 

52s yee 


cma ,FUNLOC+1 
i He rae 

a 

noi, (R1) 


(RL), aTACSL 
(SP)4,R0 
(5P)+.R1 


= 


cee <e ee «e ee —e 


WRITE A FILE GAP 

WRITE A BLOCK OF DATA 
READ A BLOCK OF DATA 

BACK SPACE A FILE GAP 
BACK SPACE A BLOCK GAP 
SPACE FORWARD A FILE GAP 
SPACE FORWARD A SLOCK GAP 


; REWIND TO BEGINNING OF TAPE 
aPC ON IS USED TO DETERMINE 


;READY BIT UP? 


fee ON IT 
:PUT FUNC. IN BITS 1-3 OF FUNLOC 


TO INT. HANDLER PARAM. ae. 


‘BTR. TO ST/ERR KD INTO P 


;ZERO ST/ERR BYTE 


;COPY CHAN. NUM. TO FUNC. WORD 


;BUFF. ADR. 
:BYTE COUNT 


;AD0 INT. ENABLE AND SO BITS 
:TO THE FUNCTION 
: START THE FUNCTION 


TALL wt RELIABILITY 
DZTAEC.P11 


1886 


BORRE GROSSE SRR EO eae S 


se ae he be be hn be be be pe Bs fe Fe fe be Be fe he fe Pe Be Be Bo fe pe fs Be fe 


wNnoon0o0n0w 
b= b= = 
MTnscwre--OwWw 


007166 
007170 


MAINDEC-11-D2TAE-C 


17-MAR-77 14:Se2 


re 
So5 loo] a | on] oe] 


ee 


000001 


000904 
172104 
172076 


000020 


MACY11 27(1006) 17-MAR-77 14:55 PAGE 43 
CASSETTE PRIMITIVES ROUTINE 


5p RARER RELA RR EERE R RARE E EEE EGE EERE RAE RE ARERR LEELA ALARA REESE 


*SBTTL CASSETTE INTERRUPT HANDLER 

SASINT: 
MOV R1,-(SP) ;;PUSH R1 ON STACK 
MOV Re’ -(SP) PUSH Re ON STACK 
MOV TACSL, Re 
MOV. - #CBCNT, R1 ;PARAM. BLOCK 
TSTB ss (Re) : TRANSFER REQUEST? 
BMI TRE tYES 
MOV (R2),R4 
SWAB. SRY 
BIS #1, sSET THE DONE BIT 
MOVB RY’ a-(R1) ‘LOAD ST/ERR BYTE 
CLRB ss (Rl “TURN OFF INTERS. 


RTI 
tREQ: DEC (R1)+ 
BMI RWILSS sWHEN COUNT NEG., DONE 
BIT #4. (Re) :CHECK READ OR Warte FUNC. 
BNE READR 
nove a¢Ri)+, @TADBL ;WRITE BYTE 
READR: MOVB  aTADBL,d(R1)+ ;READ BYTE 
RWDONE: INC -(R1) ‘BUMP ADDR 
BR BACK :GET BA 


AWILBS: BIS #20, (R2) 
BACK: 


MOV (SP)+,Re 
MOV (SP)+/RI 


»:POP STACK INTO Re 
:POP STACK INTO RI 


;INIT. LAST BYTE SEG. 


+ Bop STACK INTO Re 
;POP STACK INTO Rl 


! CASSETTE INTER. HANDLER PARAM. BLOCK 


fasPAR: .WORD oO 
CBCNT: .WORD 0 
9 


- WORD 
FUNLOC: .WORD 


; STATUS/ERROR POINTER 
;WORKING BYTE COUNT 

: WORKING BUFFER ADDRESS 
FUNC. WORD BUILT HERE 


TALL DATA RELIABILITY 
DZTAEC.Pil 


Seaerrncia etic 


2 


SOEUR ATES Boe PERE Ese SkR EOS 


tos 
Ow 


wo 
“N 
Tu 


17-MAR-77 14: 


000000 


000012 
007302 
007304 


000060 


MAINDEC-11-DZTAE-C 
Se 


OOCO46 


3$: 


4§: 


STNPWR: 


MACY11 27(1006) 
CASSETTE INTERRUPT HANDLER 


5 9 EE 9 9 9 9 9 9 9 9 a 
-SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


5p MEMES HEHEHE HEHE EEE REAR EEE EEE E EERE RARE EE EA EERE EAE EEE EERE 
S#THIS ROUTINE WILL CONVERT A 3e-BIT B NUMBER TO AN UNSIGNED 


MOV 
JSR 
RETURN 


SAVREG 
MOV 


#PNTR, -(SP) 
PC, a#$DB2D 


#10. ,4¢ 
#STNPUR, RY 
#STNPWRS2, RS 


(R4) ,R1 
(RS) ,Re 
3$ 

R3 

es 
(R4Y)+,R1 
R 


(RY) +, Re 
(RS)+, (RS)+ 


17-MAR-77 14:55 PAGE 44 


;#DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
; *POSITIVE. 


;;POINTER TO LOW WORD OF BINARY NUMBER 


;;THE FIRST ADDRESS OF ASCIZ 
;;1S ON THE STACK 


;;SAVE REGISTERS 
;;PICKUP THE DATA POINTER 

;;GET ADDRESS OF “SDECVL” STRING 

;;PUT ADDRESS OF ASCIZ STRING ON STACK 
;;PICKUP THE BINARY NUMBER 


;;SET UP TO DO 10 CONVERSIONS 
;;ADORESS OF TEN POWER 


5 CLEAR PARTIAL 
tI SUBTRACT TEN POWER 
;;BR IF 
Hy: 1 
t RESTORE SUBTRACTED VALUE 


TEN POWER TO LARGE 
TO PARTIAL 


;;MOVE TO NEXT TEN POWER 

3 5 CHANGE PARTIAL TO ASCII 

35 SAVE | T 

3 : 

;;BR_IF NO 

;; TERMINATOR 

> ;RESTORE REGISTERS 

; ;RETURN 

;;1.0€C9 
1.0€08 
;1.0&07 
1.0€06 

;;1.0&05 
1.0€04 
;1.0&03 


—4>- 
i! 


oO-4 
TOT ob be NNN Nz 
DB a doll ted : 


SS RPRR AS RRS Re RRR ROHR 


DATA RELI 
-Pll 


007336 


ILITY 
17-MAR-77 


000144 
000000 

le 
000001 
000000 
000014 


al -11-DZTRE-C 
4:52 DOUBLE LENGTH B 


o000de 000022 
007415 


007172 
oo000s 
o00002 


060000 


000004 
OCOOEC 


000052 


VL: 


+» LHELEEAESEALSSRARERL SEER RA LS EA RRAA LESS RRALAL LSE ALLL LSE SRA RE ES 
Y NUMBER TO AN 


ee -— 


SDEC .BLKB_ ile. 
-SBTTL SINGLE LENGTH BINARY 


:55 PAGE 45 


EO I er i CONVERT ROUTINE 
;;1.0€02 
;;1.0€01 

;;1.0€00 


sRESERVE STORAGE FOR ASCIZ STRING 


to AECIMAL ASCIZ ROUTINE 


tATHIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINAR 
*UNSIGNED DECIMAL ASCIZ NUMBER. 


 LELKRERERARG EARLE ERE SEERA RHEL REK LAER LARA A ELELELAAL SLE LE REL ERATE 


MOV 
ISR 
RETURN 


NUMBER, - (SP) 
PC, aaSSB2D 


2(SP) 
5 

Be" *dasbe20 ' 

#5; (SP) 

igh, 2(SP) 


; 7PUT, BINARY NUMBER ON THE STACK 
ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 


+5 


; ; SAVE VE BINARY NUMBER 
Ha DOUBLE LENGTH CONVERT 


:SET 


ALLOW FIVE CHARACTERS 


; ONLY 
; PICKUP POINTER 
; RETURN 


. WORD 
*SBTTL TYPE aslilon ASCIZ STRING SUPPRESS LEADING ZEROS 


Het ROUTINE 1S USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 


5% 


SSUPRS: 
1$: 


es: 


3$: 


;* 


 SEEREELELE EERE AELA SERS RALD SE RERALALLLREREA RELA RS LAA LARRARAAAAE 
jATHIS. ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
CALL: 


LEADING NU 
CALL 


TO 


#NUMADR, -(SP) 
PC, a8SSUPRS 


RO. -(SP) 
4($P) RO 
(RO) 

2g 
#°0,(ROj+ 
1$ 

RO 

RO, 3$ 


0 
(SP)+,RO 
(SP)+, (SP) 


BINARY. 


RDOCT 
RETURN HERE 


;;FIRST ADDRESS OF ASCIZ STRING 


R 
UP Wen POINTER 


AN ASCII "0" ” 


Bk UP BY “1” 


;5A 


FOR TYPING 


Ber POINTER GOES HERE 
oy be ; ;RESTORE THE STACK 
.SBTTL READ AN CCTAL NUMBER FROM’ THE TTY 


;;READ AN OCTAL NUMBER 


;;LO0W ORDER BITS ARE ON TOP OF THE STACK 


CO6 


TALL DATA RELIABILITY MAINDEC- -11-DZTAE-C MACYL1 27(1006) 17-MAR-77 14:55 PAGE 46 
DZTAEC.P 17-MAR-77 14:Se READ AN OCTAL NUMBER FROM THE TTY 
2929 3% ;;HIGH ORDER BITS ARE IN SHIOCT 
2031 OO7462 011646 SRDOCT: MOV (SP), -(SP) ; PROVIDE SPACE FOR THE 
2032 OO7464 O16666 o00004 ocD0002 MOV 4(SP}_2(SP) : INPUT R 
2033 007472 O10046 MOV RO, -(5P) : } PUSH RO ON STACK 
2024 007474 010146 MOV R1;-(SP) ;;PUSH Ri ON STACK 
2035 007476 010246 MOV Re, -(SP) :PUSH Re ON STACK 
2036 007500 194410 1S: ROLIN {FREAD AN ASCIZ LINE 
2037 007502 012600 MOV (SP)+,RO “GET ADDRESS or 1ST CHARACTER 
2038 007504 005001 CLR R1 CLEAR DATA WORD 
2038 007506 905002 CLR Re 
2040 10 112046 23: MOVB = (RO) +,-(SP) :;PICKUP THIS CHARACTER 
2041 007512 OO1412 BEG 3$ !:IF ZERO GET OUT 
2042 14 006301 ASL Rl +5 #2 
2043 007516 006102 ROL Re 
2044 006301 ASL RI +34 
2045 007522 C6102 ROL Re 
2046 007524 00630 ASL Ri #8 
2047 007526 006102 ROL Re 
042716 177770 BIC #1? (SP) ;:STRIP THE ASCII JUNK 
2049 007534 O62601 BOD SP)4+,R {;ADD_IN THIS DIGIT 
2051 007540 005726 3$: TST (SP)+ :: CLEAN TERMINATOR FROM STACK 
2052 007542 O10166 oo0d1e2 MOV Ri, 12(SP) :SAVE THE RESUL 
007546 010267 9o000i5 MOV Re’ SHIOCT 
2054 007552 012602 MOV (SP)+,Re ;:POP STACK INTO Re 
2055 007554 Ol1e601 MOV (SP)+°R1 !:POP STACK INTO R1 
007556 012660 MOV (5P)+°RO He STAC 0 RO 
2057 007560 000 TI : RETURN 


e Ode RTI 
20S8 OC7Sbe d0C000 SHIOCT: “WORD a :;HIGH ORDER BITS GO HERE 


TAll DATA RELIABILITY  MAINDEC-11-DZ2TAE-C MACY11 27(1006) 17-MAR-77 14:SS PAGE 47 


OZTAEC P11 17-MAR-77 14:52 READ AN OCTAL NUMBER FROM THE TTY 
20S3 tees tei titi itt isi t iii t iris iti iirititiriiie? 
2060 "SBTTL ROUTINE TO TYPE DRIVE 
c 
2062 ; CALL 
2063 : JSR PC, aa TPORV 
2064 : 
2065 
2066 
2067 007564 194401 013326 TPDRV: TYPE MSG1S “ DRIVE ” 
2068 907570 113746 001613 MOVB JSPARMBK+1, -(SP) te a ne fave NUMBER 
2069 fe Te 042716 177776 BIC etC1, (SP) 
2070 7600 paces 000:01 ADD #’A, (SP) RAKE Mscio 
2071 O07604%''012667 COCOCE MOV (SP5+,1§ SAVE i FOR TYPEQUT 
297e OO7610° 104401 TYPE 
2073 907612 poets 1$ 
2074 OO7&i4 000207 RTS PC 


2075 007616 900000 1$: WORD 0 


EQ6 


TAL! DATA RELIABILITY _ MAINDEC-11-DZTAE-C MACY11 27(1006) 17-MAR-77 14:55 PAGE 48 
OZTAEC. 17-MAR-77 14:Se ROUTINE TO TYPE DRIVE 
gpk :3 SREKALELAARSRARELA LAE AE LEA LSA RASRAL ERE A SALA AAS RAE LERSAARLSAALAA RE 
(¢ 
2078 .SBTTL ROUTINE TO ASK THE OPERATOR WHAT DRIVE(S) TO TEST 
2080 : CALL 
2081 : JSR PC, J#ASKDRV 
e0Be : RETURN sNOTE: RO AND Ri ARE DESTROYED 
2084 007620 104401 13336 GSKDRV: TYPE MSGDRV : <CRLF>"DRIVE(S)? “ 
208S 007624 O0S067 171422 } CLR ORVKEY 
2086 007630 104410 ROLIN :G0 GET A DRIVE 
2087 007632 012600 MOV (SP)+,RO ‘SETUP TO CHECK FOR VALID DRIVE(S) 
2088 007634 105710 TSTB = ARO :WAS A DRIVE SELECTED? 
2089 007636 001425 BEQ NOTLGL :BR IF NO 
20390 007840 012701 o01252 MOV #DRVKEY,R1 
2091 OO7644 122710 O0010i LOOP: ¢MPB #°A.dRO ;WAS DRIVE “A” SELECTED? 
2092 007650 O01 BNE NOTA : 
2093 007652 112021 MOVB  (RO)+,(R1)+ :SET KEY FOR DRIVE “A” 
2094 007654 000411 BR EXT 
2095 007656 122710 000102 NOTA: CMPB  #°B,aRO :WAS DRIVE “B” SELECTED? 
20% 007662 O01! BNE NOT : 
2097 007664 11202! MOVB (RO) +, (R1)+ :SET KEY FOR DRIVE “8” 
2998 007666 O00404 BR NEXT : 
2099 007670 122710 op0os4 NOTB: CMPB #54, 9R0 :WAS A COMMA TYPED? 
2190 007674 091006 BNE NOTLGL :B 
2191 007676 105720 TSTB —s-« (RO) + :DUMP THE COMMA 
2102 007700 105710 NEXT: TSTB RO : TERMINATOR? 
2103 007702 001406 BEQ EXIT ‘BR IF YES 
2194 007704 022701 001254 CMP #ORVKEY+2,R1 :TWO DRIVES SELECTED? 
2105 007710 101355 BHI LOOP 
21068 OO77le 104401 oo1202 NOTLGL: TYPE SQUES ‘ILLEGAL INPUT DETECTED 
2107 007716 o00740 R ASKDRV :G0 TRY N 
2108 007720 O05767 171326 EXIT: TST DRVKEY !ANY DRIVE SELECTED? 
2109 007724 901772 BEQ NOTLGL :BR IF NO 
21 997726 090207 RTS pC 
elll 


i PS) 
Re 


oO~- 


honororurvruroruruforurururufruforurururururorururoru Tw 
Hepbetietinrintiterhtictiretintitiritithtititie ites hk tht eehtet het htieb rh tithrbtethehtrkrhe hth ter bbthth tet ky 


SOON En EeOF0 000 NOP UT £ tO PU DD VOTH E CoO ODED NOMEN E Caror EauBOd YOO Ee CarUr Coe SOUT E Gone 


+ —or- « ee ee ee ee es ee ee ee ~-o-- - - —_——- 


DATA RELIAGILI TY MAINDEC-11-DZTAE-C MACY11 27(1006)_ 17-MAR-77 14:55 PAGE 49 
C.Pll 17-MAR-77 14:52 ROUTINE TO ASK THE OPERATOR WHAT DRIVE(S) TO TEST 


5 RRR HER ERIE EE REE EERE REE EEE REE EERE EEE ELLE E EE EL ES 
SBriL ROUTINE TO INPUT CSR,DBR, AND VECTOR ADDRESS AND PRIORITY 


: ISR PC, J#ASKADR 


9077 : 0046 ASKADR: MOV RO, -(SP) :SAVE_RO 
0077 401 013352 et TYPE ScAeK :*TACS?™ 
007736 iat RDOCT :GET VALUE 
007740 012600 MOV (SP)+,RO PICK UP THE ocTAL, NUMBER 
007742 001411 BEQ 3$ LIF "oO" USE CLD VAL 
007744 920027 160000 CMP RO, #160000 :MAKE SURE IT IS A BUS ADDRESS 
007750 103770 BLO 1 
007752 010037 001240 MOV RO, a#TACSL :SAVE THE TACS 
007756 062700 oocdooe ADD #2.R0 :STEP TO TADS ADDRESS 
007762 010037 O0124e MOV RO’ a#TADBL soe 8 VE IT 
007766 104401 013361 38: TYPE  ,MSGVEC “VECTOR?” 
007772 104411 RDOCT 

7774 012600 MOV (SP)+,RO 
007776 001411 BEQ S$ 
01 920027 001000 CMP RO, #1000 ;MAKE SURE ADDRESS IS IN VECTOR ARES 
010004 103370 BHIS 
010006 610037 001244 MOV RO, a8TAVEC ;SAVE AS VECTOR ADDRESS 
010012 O62700 900002 ADD te. 
010016 010037 001246 MOV RO! JaTAVEC+2 
010822 10440i 013372 S$: TYPE § ,MSGPRI :ASK FOR PRIORITY 

10026 i04411 RDOCT 
010030 012600 MOV (SP)+,80 | 
010032 901413 BEQ 6 :IF “O" USE OLD VALUE 
010034 020027 ocooco7 CMP RO, 87 :MAKE SURE ITS VALID 
01 101370 BHI 3$ 
010042 000300 swags =s-s«aR2O sPUT INTO HIGH BYTE 
016044 o06200 ASR RO NO SHIFT 
010046 006200 ASR RO INTO PROPER 
010050 Oo06200 ASR RO : POSITION 
010052 O42700 177437 BIC ##C<(340> RO : SAVE ONL Y PRIORITY BIT 
010056 010037 Oo01eS0 MOV RO JHTAPRIC ;STORE IT AWA 
010062 104401 013405 63: TYPE acs : TACS=" 
010066 O16746 171146 MOV tacet>-(SP) +1 SAVE TACSL FOR TYPEOUT . 
010072 104402 TYPGC : G0 TYPE>=OC TAL, ASCII(ALL DIGITS) 
010074 104401 013414 TYPE MTADB TADB=" 
010100 O16746 171136 MOY TADBL , - (SP) ++ SAVE rial FOR TYPEOUT 
910104 104402 TYPOC :60 TYPE; -OCTAL ASCIICALL DIGITS: 
010106 104401 013422 TYPE AVEC TOR=" 
O101l2 O16746 171126 MOV taveC. -(SP) :;SAVE T river FOR TYPEOUT 
010116 104402 TYPOC :;G0 TYPE--OCTAL ASCII(ALL DIGI 
010120 104401 012425 TYPE “PRIORITY=" 
0101204 O16746 171120 MOV +HPRIO.-(SP) : : SAVE TAPRIO FOR TYPEOUT 
010130 104402 TYPOC . :3G0 TYPE--OCTAL ASCII(ALL DIGITS: 
01013 104401 013451 TYPE  ,MSGOK "OK?" 

19136 104407 ROCHR ‘60 READ ONE CHARACTER 
010140 012690 MOV (SP)+, RO :GET IT 
010142 022700 oocols. CMP #15,R0 318 IT “CR? 
Cid146 OOl4de BEG 7$ :BRANCH IF YES 
10150 022700 000131 CMP 8’ Y.RO -IS IT “Y"? 
610184 01403 BEO 2 IT Was 
CiOISe 104401 ool1ec2 TYPE  ,$QUES “TYPE *7" 


TALL on RELIABILITY 

OZTREC.P1 17-MAR-77 
ae 
e:70 910170 01260 
ei7i Oiul72 9002 


ae a 


913456 ? 


MACY11 27( 1006) 


GO6 


17-MAR-77 14:55 


PAGE SO 
ROUTINE TO INPUT CSR,DBR, AND VECTOR ADDRESS AND PRIORITY 


1$ 
Pipe MYES 
MOV (SP)+,R0 
RTS PC 


; AND Lfr. HIM CORRECT THEM 
TY YPE OUT “YES” 

;RESTORE RO 
AND RETURN 


——_ = + ee ee w- me 2-0 - —-~ 


HO6 


TAll DATA RELIABILITY NAINDEC- 11-DZ2TAE-C MACY11 27(1006) 17-MAR-77 14:55 PAGE S1 
DZTAEC. 11 17-MAR-77 14:52 ROUTINE TO INPUT CSR,DBR, AND VECTOR ADDRESS AND PRIORITY 
5176 4 SREAARARAA AA LAA LALA ERE AA RA RRA LRALERLEAAA ARASH AA RASA SRAAA LAL LGZE 
17 : 
ein *SBTTL ROUTINE TO EXAMINE DRIVE(S) FOR AVAILABLITY 
af 
2176 ; CALL: 
2177 : MOV #ORVKEY, RO 
2178 JSR PC, J#EXAM ;R1 1S DESTROYED 
2179 : NORMAL RETURN 
2180 : ERROR RETURN 
2182 010174 013701 001240 EXAM: MOV JeTACSL,R1 ;PICKUP THE “CONTROL gS STATUS” REG. ADR. 
2183 019200 o0S011 CLR (R1) :ORIVE="A". FUNCTION="MFG™ 
2184 O10202 122710 000101 CMPB sw, (RO) ‘EXAMINE DRIVE “A”? 
2185 010206 O0:40e BEQ 1$ :BR IF YES . 
2185 910219 052711 oco400 BIS #UNIT, (RL) ‘SELECT DRIVE "8 
2187 010214 0632711 900040 1$: BIT #READY, (R1) :WAIT ON READY 
2188 010220 001775 BE 1$ 
2189 010222 9005711 TST (R1) ;ANY ERROR? 
2190 010224 100024 BPL 4§ : 
2191 010226 032711 001000 BIT #OFFLINE, (R1) sERROR DUE TO “OFF LINE”? 
2192 O10e32 OO1017 BNE !BR IF YES 
2193 010234 032711 o10000 Sit #WRTLOCK, (RL) *ERROR DUE TO “WRITE LOCK"? 
2194 Oige40 G01411 BEQ 2 ; , 
2195 010242 777 000201 170879 CMPG =: BHI TO7!BITOO, aSWR ;"READONLY™ SELECTED? (RDIPAS) 
2196 010250 oO1412 BEQ 4 IF YES 
2197 010252 122777 000203 170660 CMPB © SBITO7!BITO1'BITOO,aSWR ; : (ROZPAS) ? 
2198 010260 O01406 BEQ 4§ -BR IF YES 
2199 010262 o00403 BR 3$ :TAKE THE ERROR EXIT 
2200 010264 032711 o20000 23: BIT #LEADER, (R1) :ERROR DUE TO “CLEAR LEADER"? 
2201 010270 ooio0e BNE 4 :BR IF YES 
202 010272 O62716 osoccoe 3$: ADD 82, (SP) TAKE ERROR RETURN 
2203 010276 900207 4$: RTS PC *RETU 
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ge04 SBTTL TYPE ROUTINE 
2 A) ee eT eee ceace  MEGcaGe MUST TERMINATE WITH AO BY 
220; iene Borie at ASCIZ_ MESSAGE SSAGE MUST TERMINATE WITH A o 
i -% 
S5H8 notes Shut RT A AER OF afldh ty CHARACTERS AFTER Ae LIne, eet RaRACTER. 
2210 t INOTES; SFILLS CONTAINS THE NUNBER OF FILLER CHARACTERS REQUIRED. 
geil ; NOTE: SFItte CONTAINS THE CHARACTER TO-FILL AFTE 
3513 CAL 
2214 41) OSING & TRAP INSTRUCTION 
2215 TYPE  ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
Pele ‘SOR 
3317 te TYPE 
2218 te MESADR 
552g a 
2221 010300 105767 170653 $TYPE: TSTB  $TPFLG ;31S THERE A TERMINAL? 
2222 010304 100002 BPL 1$ F YES 
3223 010306 Oo0000 HALT HALT HERE IF NO TERMINAL 
2224 010310 OO0407 BR : LEAVE 
22P5 010312 O100%% 18: MOV _—s«RO, - (SP) SAVE RO 
2226 010314 0176800 90c002 MOV  getSP), RO ?GET ADDRESS OF ASCIZ STRING 
Bee? 010320 112046 25: MOVE  (RO)+,2(SP) | PUSH CHARACTER TOBE TYPED ONTO STACK 
2228 010322 001005 NE ape bilo THE TERMINAT 
3259 010324 006726 S (SP)+ i LIF TERMINATOR POP Tae ene STACK 
2230 010326 012600 60S: MOV (ep) RO 
2231 910330 Obe71 conde 33: AbD #2, (SP) Hh cr RETURN PC 
$535 Bibsse OQfPE noo ug: AneE WHT, (SP) !IBRANCH IF <HT> 
2234 010342 001430 BEG 
35 O10344 122716 oo0200 CMPB sCRLF, (SP) ;;BRANCH IF NOT <CRLF> 
2236 010350 001006 BNE 
2237 010352 O0057c6 TST (SP)+ ;;POP. <CR><LF> EQUIV 
2238 010354 104401 TYPE Si TYPE A CR AND LF 
2239 010356 001203 S$CRLF 
2640 10360 105067 000130 CLRB  SCHARCNT : CLEAR CHARACTER COUNT 
2241 010364 00755 BR 2§ ‘GET NEXT CHARACTER 
2242 010366 004767 S00056 5S: JSR «PC STYPEC 'G0 TYPE Tis” CHARACTER 
2243 010372 126726 170560 és: CMPB 4 CSFILLC,(SP)+ 3318 IT TIME FOR FILLER. CHARS. ? 
2244 010376 001350 BNE 5 !21F NO GO GET NEXT CHAR. 
2245 O10400 O16746 170550 MOV —«$NULL, -( SP) ZIGET # OF FILLER CHARS. NEEDED 
2246 ;;AND Ly NULL CHAR. 
2°47 O10404 105366 000001 73: DECB «AAC SP) ;;D0ES A NULL NEED 70 BE TYPED! 
2248 O10410 002770 BLT 6 ?!BR IF NO--GO POP THE NULL OFF OF STACK 
2249 010412 004767 op0032 Jk PC, STYPEC '!60 TYPE A NULL 
2250 O10416 105367 Oo0072 Deca $C HARCN !ID0 NOT COUNT AS A COUNT 
2251 Ol0¥ee 000770 BR : LOOP 
e253 ;HORIZONTAL TAB PROCESSOR 
2265 010424 112716 oOgD040 es: MOVE &’ , (SP) ;;REPLACE TAB WITH SPACE 
2256 O10430 004767 OO0014 $5: jsp «PC, $TYPEC :: TYPE A SPACE 
2257 Q10434 132767 O00007 ocod0s2 BITS #7 SCHARCNT BRANCH IF NOT AT 
cose Oiou42 001372 BNE ; 
SBES AlOwus AGE 2E TST (SP)+ '!POP SPACE OFF STACK 
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DZTAEC. 17-MER-77 14:52 TYPE ROUTINE 
2260 010446 000724 BR 23 ;;GET NEXT CHARACTER 
2261 O104S0 105777 170474 $TYPEC: TSTB a$TP :: WAIT UNTIL PRINTER IS READY 
262 010454 10037 SPL $TYPEC 
Sy HESS! dgeiee Soe Good GeB ena? FORRES Froud eee 
l 8 , 3 
sse¢ BiRUS3 ABT OBS ceeOOS Aga 
seb 10474 10506? 000014 CLRB SCHARCNT YES" =CLERR CHARACTER COUNT 
2268 15288 eas oo0012 oooo0e 18: RR og #LF EXsp 35S CHARACTER A LINE FEED? 
es tule (eer fig fro HEI Ga 
2271 010514 o00000 scHARCNT BRD 0 tS ERBRACT BE dG SOON Fo TER RAGE 
cere 910516 900207 STYPEX: RTS PC 
gers .SBTTL TTY INPUT ROUTINE 
fs 
227: © LEKKGES ELLA RAL LAREKAAA RARER ARLES EEA AA LAA AA ER LAE S EAE RAL AA RALEE 
ge77 ‘ENABL LSB 
227 5 RRR ERR A ALLA REAR AA RAE LEEK LAER LEAR ARAL AAR A LEER LE REE REELS E 
2280 : SSOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
2281 :#ROUTINE IS ENTERED FROM THE TRAP HANDLER WILL 
2282 "SERVICE THE TEST FOR CHANGE IN SOFTWARE a tt REGISTER TRAP CALL 
2283 -¥WHEN OPERATING IN TTY FLAG MODE. 
2284 910520 922767 900176 170412 $CKSWR: CMP #SWREG, SWR iif5 THE SOFT-SWR SELECTED? 
2°85 010526 001074 BNE 15$ “BRANCH IF NO 
2286 010530 105777 170410 TSTB © aSTKS ::CHAR THERE? 
2287 010534 100071 BPL 18 iid NO pons WAIT AROUND 
2288 010536 117746 170404 MOVB a$TKB,-(SP) AVE THE CHAR 
2289 O10S42 O42716 177600 BIC 810177 (SP) si STRTP-OFE THE ASCII 
010546 O22726 000007 CMP SP}+ iI ITA CONTROL L 6? 
2°91 010552 o0106e BNE te RETURN TO USER 
2292 010554 126727 170354 ococo0l CMPB  =- SALTOB, #1 ARE WE RUNNING IN AUTO-MODE? 
ge33 010562 001456 BEQ 15$ Re IF YES 
2295 O10S64 104401 011245 TYPE »SCNTLG :;ECHO THE CONTROL-G (1G) 
2296 010570 104401 Ollese SGTSWR: TYPE SMSWR :: TYPE CURRENT CONTENTS 
2297 010574 O16746 167376 MOV SWREG, - (SP) $s a5V6 SWREG FOR TYPEOUT 
2298 O10600 104402 TYPOC :GO TyPe=~OC TAL. ASCIICALL DIGITS) 
2299 O10602 10440i 011263 TYPE  ,SMNEW ::PROMPT FOR NEW SWR 
2300 010806 GOSO46 198: CLR -(SP) CLEAR COUNTER 
2301 910610 ooSso4E CLR - (SF) 3; THE NEW SWiR 
2sue O106le 105777 170326 7$: TSTB =: ASTKS *CHAR THERE? 
203 010616 100375 BPL 7$ ::IF NOT TRY AGAIN 
2305 010620 11774 170322 MOVB  a$TKB,-(SP) ::PICK UP CHA 
3308 010624 042716 177600 BIC #tC.7?, (SP) ::MAKE IT oer ASCII 
2308 
2309 
2310 010630 oO21627 oO00025 9$: CMP (SP), #25 :;15 IT A CONTROL-U? 
gail 10634 001005 BNE 10$ : BRA NCH IF NOT 
le 610636 104401 o11e40 YPE SCNTLU YES, ECHO CONTROL-U (tu) 
2212 Cidb4e O&270E O00d0E 208: ADD be. SP ;; IGNORE PREVIOUS INPUT 
2314 Oi0646 000757 or 19$ SILET’S TRY IT AGAIN 
2215 
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DZTAEC.P11 
ze 
5318 Oioess 
2319 010656 
2320 010662 
2321 010664 
2322 010672 
e363 010676 
2324 O1 
2325 010710 
2326 010712 
2327 010720 
2328 010722 
2329 010726 
2330 010732 
2331 010734 
2332 010740 
2333 O10742 
334 010746 
335 10752 
336 010754 
2337 010756 
2338 010760 
2339 010762 
2340 010766 
2341 010772 
e342 010774 
2343 011000 
2344 
2345 
2246 
2347 
2348 
2249 
2350 
2351 
2352 
2353 
2354 
2355 011002 
2356 011004 
2357 011012 
2358 O11016 
2359 011020 
2360 011026 
2361 011034 
2362 011042 
2363 011044 
e364 O11 
5 O11 
2366 011056 
2367 011062 
2368 011066 
2369 011070 
2370 011072 
2371 011100 


000720 


002407 


MAINDEC-11-DZTRE-C 


000015 
000004 


03 
170227 
000100 


177522 
000060 


000067 


000060 
o0000e 


009902 
177776 


001202 


o0o004 
170126 


170122 
177600 
ooco04 
170074 
170070 


177600 
000021 


000004 


170246 


000001 
170224 


oogode 


000004 
000004 
000023 


000140 
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TTY INPUT ROUTINE 


108: 


1$: 
14S: 


15S: 
16$: 


17$: 


18$: 
. OSABL 


R 
LSB 


P),@SWR 
Pp 


#6,5 
SCRLF 
SINTAG, #1 


1 
#100, d$TKS 


PC, $STYPEC 
(SP), #60 


1 
(SP), #67 


$ 
#60, (SP)+ 
(SP) 


ee wm er ee ee ees ee ee ce ee — ++ mae 
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ss 2 IT A_<CR>? 
; ; BRANCH NO 
;;YES, IS IT THE FIRST CHAR? 
; ;BRAACH F YES 


9 >» AND <LF> 
>;RE-ENABLE TTY KBD INTERRUPTS? 


;;BRANCH IF YES 
;;STRIP-OFF ASCII 
;;1S THIS THE FIRST CHAR 


; ; BRANCH 

;;NO, SHIFT PRESENT 

;; CHAR OVER TO MAKE 
5 NEW ONE. 


SITYPE ?<CRD<LF) 
ITSIMULATE CONTROL-U 


cs KERELERRE EERE EEE LL ARAL ASL ERE ALLA AAR RAAAERERA ALL LALLA RELA RES 


. 
7% 
;% 
3% 
: 


$SRDCHR: 
1$: 


2s: 


38: 


RDCHR 
RETURN HERE 


(SP), -(SP) 
4(SP},2(SP) 
asTks 
d$TKB,4(SP) 
#t0(177>-4(SP) 
4(SP), #23 
aSTKS 


TKB,-(SP) 
#tC177, (SP) 
(SP)+, #21 
23 


1$ 
4(SP), #140 
4$ 


s STHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
-% : 


;; INPUT A SINGLE CHARACTER FROM THE TTY 
;;CHARACTER IS ON THE STACK 
;;MITH PARITY BIT STRIPPED OFF 


;;PUSH DOWN THE PC 

> ;SAVE THE PS 

;;WAIT FOR 

;;A_ CHARACTER 

;;READ THE TTY 

;;GET RID OF JUNK IF ANY 


;;1S IT A CONTROL-S? 
; ; BRANCH NO 


‘YES. RES 
::1S {fT UPPER CASE? 
;;BRANCH IF YES 


© eee ~~ wee — a a ee anne a ae ee ae ee ce ee 
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2372 011102 026627 O00004 c00175 CMP 4(SP), #175 5318 i A SPECIAL CHAR? 
2373 011110 003003 BGT 4 R 
2374 Ollll2 O42766 ooc040 oD0004 BIC #40, 4(SP) t MAKE a LIPPER CASE 
2375 011120 do0000e 48: RTI BACK TO USE 
2376 Dette ei rier te rete tt et ’ 
e377 HATHIS. ROUTINE WILL INPUT A STRING FROM THE T ; 
2379 i ROLIN seu A STRING FROM THE TTY 
2380 % RETURN HERE “ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
e381 x :: TERMINATOR WILL BE A BYTE OF ALL 0’S 
2383 011122 010346 SRDLIN: MOV R3,-(SP) Save 3 
2384 011124 012703 011230 1$: MOV SStTYIN, R3 si GET ADDRESS 
53gP 011130 p e 011240 2s: che agrTVINes. .R3 : BUFF R aul? 
fe GIG tise a" seven eerenersee TER FPO ME TD 
2389 011142 122713 000177 10S: CMPB 0s #177, tR3) 44 (3 ITA ROBORT 
Ee GLIISE COE? coicce ws; he Siaucs, Pe A 
2392 011154 000763 ‘ BR 1$ + CER THE BUFFER AND LOOP 
2393 011156 111367 oo0044 3: MOVE  (R3), 98 :ECHO THE CHARACTER 
2394 O11162 104401 011226 TYPE 9$ 
2395 O11166 122723 00001 CMPB sa 1S, (RB) + ;; CHECK FOR RETURN 
23% 011172 OO1 BNE 2$ LOOP IF NOT RETURN 
2397 011174 105063 177777 CLRB 3s - 1 (3) CLEAR RETURN (THE 15) 
see lien freee le mar Bieseg, Hagen ee 
2400 bt Spe 011646 MOV (SP), ~(SP) Pat ST THE STACK AND PUT ADDRESS OF THE 
evo! b11210 016666 900004 googge HOV wePh eae) i FIRST ASCII CHARACTER ON IT 
595 ptt 48 ean RTI ’ ; ;RETURN 
e404 O11 6 9: -BYTE 0 $ STORAGE FOR ASCII CHAR. TO TYPE 
2406 Bt 1556 00001 STTYIN: BYE B ze HIRESERVE Saves FOR TTY INPUT 
2407 011240 052536 ooso1s 000 S$CNTLU: .ASCIZ /#U/<15><12> :: CONTROL 
2408 011245 136 006507 OO00012 GSCNTLG: .ASCIZ /#G/<15><12> }#CONTROL “ge 
2409 O1leS2 o05015 053523 Oe0l22 SMSWR: .ASCIZ <15><12>/SWR = 
24190 011260 620075 000 
2411 011263 040 047040 OS3S0S SMNEW: .ASCIZ 7“ NEW = 
2412 011270 o36440 os0040 
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DZTAEC.P11 17-MAR-77 14:Se BINARY TO OCTAL (ASCII) AND TYPE 
aui3 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
siid © SREAERSEKEKALARSRERRE RARE RAESSAARASRA AA RRA RHA RLEREAAALALKARAALEE 
2416 kT THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
2417 : x0CT cil R TYPE IT. 
1g se hire Pied BAN URE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
2420 % MOV NUM, -(SP) ;;NUMBER TO TYPED 
2421] 1% TYPOS i 5CALL FOR TYPEOUT 
e422 1% .BYTE N *N=I TO & FOR NUMBER OF DIGITS TO TYPE 
2423 :# .BYTE MM ::M=1 OR O 
o4D4 x ;;1=TYPE LEADING ZEROS 
eves 1% ::0=SUPPRESS LEADING ZEROS 
ie 
2427 j #STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
2428 :¥STYPOS OR STYPOC 
2429 : *CALL: 
2430 1% MOV NUM, -( SP) ;;NUMBER TO BE TYPED 
e431 i TYPON CALL FOR TYPEOUT 
e433 | ¥STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
2435 HM MOV NUM, -(SP) NUMBER TO BE TYPED 
e436 1% TYPOC CALL FOR TYPEOUT 
11274 0176 oo00 $TYPOS: MOV a(SP),-(SP) ;;PICKUP THE MODE 
eis Gitzo ieee? BOQGGT oocens °° Rove TeSh)ssortin LORD Zend FILL suroy 
+ ,? 
1 Olisle 16 O0000e 12 (SP) 1 NUNBER oF DRESS 
@ 011316 O00406 BR STYPON 
2443 011320 112767 000001 000171 STYPOC: MOVB #1,$OFILL ;SET THE ZERO FILL SWITCH 
444 011326 112767 OO00006 o00165 MOVB a6, SOMODE+1 eer FOR SIX(6) DIGITS 
44S 011334 112767 OO0000S OO01SY STYPON: MOVB 5, SOCNT 33961 THE ITERATION COUNT 
446 011342 O1034%6 MOV Ra’ -(SP) :SAVE R3 
2447 011344 O10446 MOV RY, (SP) ss SAVE RY 
sie Giles Teas Rio SGhObEv1,mu Heer 
11 116704 000145 MOVB S300 +1,R4 ay THE NUMBER OF DIGITS TO TYPE 
Shey eM Aa a RY TRACT _IT F 8 MAX. ALLOWED 
Sed Bt 1328 1 7 1 vB RG! SOMODE Save is FoR 
e453 011365 116704 900125 nove oy dL Rd :GE T THE ZERO PILL yaulcH 
Sdec pt t37e aeailik CLR fe it CEAR The OUTPUT, UD 
e456 011400 006105 1S: ROL : ROTATE INTO ™ 
2457 011402 BR ae Meee 
458 011404 006105 2s: ROL RS FORM THIS DIGIT 
2459 011406 006105 ROL R3 
2460 011410 006105 ROL 
2461 011412 010503 MOV RS,R3 
462 011414 006103 2s: ROL R3 ;;GET LSB OF THIS, DIGIT 
e463 O11416 105367 000076 DECB § S$OMODE ;; TYPE THIS DIGIT? 
464 O11422 100016 BPL ? F NO 
2465 011424 042703 177770 BIC #177770,R3 33GET RID OF JUNK 
2466 011430 001002 BNE 4§ : TES 
2467 011432 005704 TST RY t CUPPRESS THIS 0? 
2468 011434 001403 BEQ $ ::BR IF YES 


NO6 
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OZTAEC.P 17-MAR-77 14:52 BINARY TO OCTAL (ASCII) AND TYPE 
4$: N RY oe ANYMORE O°S 
590 B46 Be270s po0080 Be Mo kg RE 1 Bis bYctr it ae 
4 i Me vay py BO Re As AV T TNR. a 

Ae rR {Aad 1 ? 14 Hoye ef ii aPYE EOF Hye Morr 

os OMEN baat? OO x ae tian TF ORE TO 00 

oe Otiuee poside Br C&S ‘BR TF DONE 
2477 011470 005204 INC RY tT INSURE ONS T DIGIT ISN’T A BLANK 
2478 011472 744 BR 2g $3 DO THE LAST DIGIT 
24 O114z4 12605 6S: MOV (SP)+,RS S 
480 011476 012604 MOV (SP)+;R4 beets RY 
2481 011500 012603 MOV (SP)+,R3 STO R3 
ouge O11 1gbb6 oocoo2 oo0004 MOV 2(SP);4(SP) STACK FOR RETURNING 

83 O11510 O1e616 MOV (SP) +? (SP) 
2484 O115ie2 02 RTI it TURN 
2485 011514 000 QS: .BYTE 0 1} STORAGE FOR ASCII DIGIT 
2486 011515 000 -BYTE 0 :: TERMINATOR FOR TYPE ROUTINE 
2487 011516 000 SOCNT: .BYTE O ;;OCTAL DIGIT COUNTER 
2488 011517 000 SOFILL: .BYTE 0 RO FILL SWITCH 
2489 011520 oooo00 SOMODE: .WORD 0 ::NUMBER OF DIGITS TO TYPE 


mn nr a ee ee eee —— oe 
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OZTAEC.P11 | 17-MAR-77 14:Se AP DECODER 
gugo .SBTTL TRAP DECODER 
e432 $ ; EREEEEEE RARE REESE ERE EE ER RER ELE LL EEL EERE ERA ARRAS LEE E LEE 
2493 t ATHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP INSTRUCTION 
2494 ?¥AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
24a :#0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
S1% :#G0 TO THAT ROUTINE. 
2498 011522 010046 STRAP: MOV -(SP} ;SAVE RO 
2499 911524 016600 o00002 MOV a¢8p), RO HET TRAP ADDRESS 
2500 011530 905740 TST (RO)’ 
2501 011532 111000 MOVB (RO), RO ::GET RIGHT BYTE OF TRAP 
2503 gress Gerd 011556 nov TRPAD (RO), RO it ORe er tee econ ae 

| 9° 

2504 ieee 000200 RTS s os Aout TRE 
2508 
2507 +; THIS IS USE TO HANDLE THE “GETPRI” MACRO 
Seog i O11S44 011646 STRAP2: MOV (SP) ,-(SP) s MOVE THE PC DOWN 
2510 011546 O16666 o00004 o00002 MOV 4(SP$,20S5P) *:MOVE THE PSW DOWN 
geil 011554 oo0002 RTI :RESTORE THE PSW 
seta .SBTTL TRAP TABLE 
2515 ;XTHIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
sets !¥BY THE “TRAP™ INSTRUCTION. 
2518 : ROUT INE 
2520 O11556 011544 STRPAD: .WORD $TRAP2 
25e1 011560 010300 $TYPE ;;CALL=TYPE TRAP+1 (104401) Ty TYPEOUT ROUTINE 
2522 011562 011320 $TYPOC ::CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
2523 011564 011274 $TYPOS ::CALL=TYPOS | TRAP+3( 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
25204 O11566 011334 STYPON ::CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
2526 011570 010570 SCTSWR ;;CALL=GTSWR § TRAP+S(10440S) GET SOFT-SWR SETTING 
2528 011572 010520 SCKSWR 3 CALL=CKSHR TRAP+6(104406) TEST FOR CHANGE IN SOFT-SWR 
2529 011574 011002 SROCHR :;CALL=RDCHR | TRAP+7(104407) TTY TYPEIN CHARACTER ROUTINE 
2530 011576 Ollle2e $RDLIN {/CALL=ROLIN TRAP+10( 104410) TTY TYPEIN STRING ROUTINE 
2531 O11600 007462 SRDOCT ::CALL=RDOCT  TRAP+11(104411) READ AN OCTAL NUMBER FROM TTY 
2532 O11602 OO6626 SSAVREG ::CALL=SAVREG TRAP+12(104412) SAVE RO-RS ROUTINE 
2532 O11604 OO06664 SRESREG ;:CALL=RESREG TRAP+13(104413) RESTORE RO-RS ROUTINE 


mee eee a te a - ~-< 


ry 
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DZTAEC.P11 | 17-MAR-77 14:52 POWER DOWN AND UP ROUTINES ‘ 
2534 .SBTTL POWER DOWN AND UP ROUTINES 
2536 a nia ee ee 
2537 DOWN ROUTINE 
2538 O11606 012737 011752 000024 ipower MOV WSILLUP, DWPWRVEC ; ;SET FOR FAST UP 
2539 0:1614 012737 O00340 O000c6 MOV #340 SUPURVECS +2 ; ;PRIO 
2540 Oli6ee 01004 MOV -tsp RO ON STACK 
2S4i Q11624% O10146 ants + Rl ON STACK 
es42 011626 010246 MOV R2;-(SP) PUSH Re ON STACK 
2543 011630 01034 R3,-(SP) ::PUSH R3 ON STACK 
2544 011632 O10446 V Ry’ -(SP) PUSH R4Y ON STACK 
2545 011634- O10S46 MOV RS’ -(SP) : PUSH RS ON STACK 
2546 011636 O1774% 167276 MOV JSWR, - (SP) ;;PUSH @SWR ON STACK 
2547 O11642 010667 000110 MOV SP, SSAVRE :SAVE SP 
2548 O11646 Ole737 O11660 oo00024 MOV PSPRUP SUPWRVEC SET UP VECTOR 
2549 011654 O00000 HALT 
2550 011656 000776 BR 2 ;;HANG UP 
2552 : eae te MG ne ee ee eee 
2553 'BOWER UP ROUTINE 
5554 O11660 012737 011752 000024 §$PWRUP: MOV SSILLUP, Q#PURVEC ; iSET FOR FAST DOWN 
2555 011666 016706 OO0064 MOV SSAVRE, SP 
2556 011672 005067 900060 CLR SSAVR6 bABIT LOOP FOR THE TTY 
3557 011676 7 900054 1S: INC SSAVRE ;;WAIT FOR THE INC 
2558 011702 001375 BNE 1$ WORD 
2559 011704 012677 167230 MOV (SP)+, ISWR :1POP STACK INTC aSWR 
2560 O11710 O12605 MOV (5P)+/85 OP STACK INTO RS 
2561 O11712 012604 MOV (SP)+°R4 +O Op STACK INTO R4 
2562 011714 012603 MOV (SP)+°R3 :POP STACK INTO R3 
2563 011716 Oleb0e MOV (SP)+>Re ::POP STACK INTO Re 
2564 011720 01260! MOV (SP)+'RI 33POP 5 BCK INTO RI 
2565 011722 012600 MOV (5P)+’RO :POP STACK INTO RO 
2566 011724 Ole737 011606 oco00e4 MOV aSPuRON QSPWRVEC’: SET UP THE POWER DOWN VECTOR 
2587 011732 012737 000340 o000e6 MOV #340, JHPWRVEC+2 ;:PRIO:7 
2568 G1174G 104401 TYPE . REP PORT THE POWER FAILURE 
2569 011742 011760 SPWRMG: .WORD $POWER : POWER FAIL MESSAGE POINTER 
2570 O11744 O12716 MOV (PC)+, (SP) RESTART AT SEOP 
2571 O11746 12 SPWRAD: .WORD S$EOP ::RESTART ADDRESS 
2572 011750 02 RTI 
2573 011752 00 SILLUP: HALT ;;THE POWER UP SEQUENCE WAS STARTED 
2574 011754 000776 BR 2 it ober ORE THE POWER DOWN WAS COMPLETE 
2575 011756 OOC000 SSAVRE: 0 ::PUT THE SP HERE 
2576 011760 905915 047520 o4eSe7 S$POWER: .ASCIZ <15><12>"POWER” 
2577 O11766 00122 


2578 EVEN 


ee ee ee 
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DZTAEC.P 17-MAR-77 14:52 DATA TABLE POINTERS AND DATA FORMATS FOR ERRORS 
2s79 a3 RELAAAAAAAAAALALAAAAAARELRAAL ALARA LAAARASASSSRAARRERERAAA REESE SE 
2581 ;DATA POINTERS 
2583 011770 OO1116 901162 001166 OT: .WORD  SERRPC, SREGO. $REG2, BYTNUM, SGDDAT , SBDDAT , SGDADR, SBDADR, 0 
2584 011776 001230 001124 001126 
2585 012004 001120 OOllee oo0000 
2587 012012 001116 001162 OO1166 OTe: .WORD  SERRPC, SREGO, SREG2, STMPO, STMP2, 0 
2588 O01 001172 001176 oo0000 
seeq 012026 001116 001162 001166 DT101: .WORD SERRPC,SREGO,SREG2,$TMPO,O 
531 012034 001172 o00000 
2533 012040 001116 001240 OO0000 DT201: .WORD SERRPC,*ACSL,O 
3535 012046 001116 oo0000 DT202: .WORD SERRPC,O 
2597 ,DATA FORMATS 
2598 oo0000 SN=0 =; OCTAL NUMBER 
3°93 000001 DN=1 § :DECIMAL NUMBER 
2601 012052 000 OF 1: .BYTE ON : SERRPC 
2602 012053 O01 "BYTE ON : SREGO 
012054 001 BYTE ON 
2604 012055 001 BYTE ON 5 BYTNUN 
012056 000 BYTE ON : 
012057 000 BYTE ON : SBDDAT 
2607 012060 900 “BYTE ON : $GDADR 
e608 000 "BYTE ON : SBDADR 
2610 012062 00 OF2: -BYTE ON : SERRPC 
2611 lay “BYTE ON ; SREGO 
2612 012064 601 "BYTE ON : SREG 
2613 012065 991 “BYTE ON : STMPO 
2614 O12066 801 “BYTE ON : STMP] 


~“ 


- ra 
TALL DATA RELIABILITY. MAINDEC-11-DZTAE-C MACY11 27(1006) 17-MAR-77 14:55 PAGE 61 
DZTREC.Pil 17-MAR-77 14:Se2 ASCII MESSAGES 


e616 3% READE SHAKAAS SHARE AASAAAL RA LAKE LARAAASAALAAAAALSAAAALELALALALALAELS 
2617 
e618 ; MESSAGES 
2620 012067 127 O44S22 042504 MXWFG: .ASCIZ /WRITE-FILE-GAP/ 
Ba tiie five iy 
eae 
ss Giese Rules Besiot UG abla: ASCE abla 
2625 Olelel 102 041501 026513 MXBSFG: .ASCIZ /BACK-SPACE-FILE-GAP/ 
2626 Olele6 OS0123 041501 O26505 
55a Olelae becie; coo Oe 
2629 012145 102 O41591 026513 MXBSBG: .ASCIZ /BACK-SPACE-BLK-GAP/ 
2630 O12152 OS012e3 041501 026505 
2631 O12160 O46102 026513 o40S50 
2632 O12166 O00! 
2633 012170 050123 O41501 O2650S MXSFFG: .ASCIZ /SPACE-FWD-FILE-GAP/ 
2634 012176 0535 6504 O44506 
043455 OS0101 


000 
2637 Ol2213 123 O40S20 O42S503 MXSFBG: .ASCIZ /SPACE-FWD-BLK-GAP/ 
2220 O4305S O4ele7 041055 
2639 Cleeeb O¥SS514 O434SS 050101 


000 
2641 Ole235 lee OS3S0S 047111 MXRWND: .ASCIZ /REWIND/ 


2643 Olee44 O40S04 O40Se4 O42440 EMI: -ASCIZ “DATA ERROR” 
2644 OleeSe 051122 051117 000 
2645 Ol2257 123 047131 020103 EMe: -ASCIZ “SYNC ERROR” 
e646 OleebY 051105 Oo 000122 


4752 
OY OS3111 Qe010S EM101: .ASCIZ “DRIVE IS OFF-LINE” 


2650 012314 051104 053111 Oe010S EM102: .ASCIZ “DRIVE IS WRITE-LOCK™ 
2651 Olese2 051511 40 O44S22 

265e 012330 O42524 O4B0SS 041517 

2653 012336 000113 . 
2654 012340 O46103 O4OSOS O20122 EM103: .ASCIZ “CLEAR LEADER ERROR 
2655 012346 042514 042101 051105 

2656 012354 O4e440 OSil22 051117 

2657 Olesb2 000 - 
2658 012363 106 O46111 O20105 EMIO4: .ASCIZ “FILE GAP ERROR 
2659 012370 040507 020120 05ii05 

2660 012376 O475e2 O00lee 


e661 O1e402 O44Se4 O44S15 O43516 EM10S: .ASCIZ “TIMING ERROR” 
ebte seat O4e440 OSll22 051117 


000 
2417 102 047514 O4SS503 EM106: .ASCIZ “BLOCK CHECK ERROR" 


01 

2665 O1e424 O41440 O4eS10 O45503 

e666 ~Ole432 O4e440 OSllee 051117 

2667 012440 000 - 
2668 012441 1eS O4SS16 O47S516 EM107: .ASCIZ “UNKNOWN INTERRUPT 
2669 Ole446 O47127 O44440 OSell6 

e670 Ole4S4 051105 OSeS2e CSele0 

cé71 Clex%ée 000 


~ 


ra 
TALL DATA RELIABILITY  MAINDEC-11-DZTAE-C MACY11 27(1006) 17-MAR-77 14:55 PAGE 62 
DZTAEC.P11  17-MAR-77 14:52 ASCII MESSAGES 
72 Ol 30501 EM201: .ASCIZ “TAL1 FAILED TO RESPOND" 

578 B15453 ovodbe Baeiit Oae106 
274 O1e476 Os2040 e011? O¥ese8 | 
sere Sets Bape 842490 B0928! eneoe: .asciz “NO DRIVE AVAILABLE” 
2677 012520 O4e526 OYO44O O40S26 
2678 Ol O¥6111 O41101 o42514 
Sead 815832 120 20103 20040 DMI: .AscIZ “PC FILE BLOCK BYTE  GDDAT B0DAT GDADR &CAOR/ 
2681 012542 O43040 046111 

012550 020105 
2683 012556 047514 O45S03 Od20040 
2684 012564 041040 052131 020105 

012572 O43440 042104 
2685 012600 052101 041040 
2687 012606 O4e104 052101 d20040 

012614 O4344O O40S04 951104 
so fies Heine Ogg iso 
2691 012633 Q20040 O20040 DH2: ASCII / EXPT'D EXPT'D RCV'D RCV'D/«1S>< 12> 
P692 O1e640 O20040 O42440 050130 
2693 012646 023524 020104 o42440 
2694 012654 950130 020104 
2695 OlebS2 051040 053103 042047 
55 Hee Ew fine Sole 
2698 Ole702 041520 d20040 o?0040 .ASCIZ /PC FILE BLOCK FILE BLOCK: 
2699 012710 O44506 04251 
2700 O1e716 02 046102 
3701 012724 O41517 020113 20040 
2702 Ole732 042514 d20040 
6704 Ole OOOLIS 
2705 012750 041520 O20040 O20040 DHIOL: .ASCIZ /PC FILE  SLOCK — FUNCTION/ 
2706 012756 02 o44S06 042514 
2707 012764 20040 O20040 o46102 
2708 Ole772 O4i517 020113 oP0040 
2709 013000 052506 O41516 O44S24 
2710 013006 047117 
2711 O13011 — 120 920103 O20040 DH201: .ASCIZ PC TACS/ 
2712 013016 052040 041501 
2713 013004 000123 
2714 013026 O415 DHeO2: .ASCIZ /PC’ 7 
2715 13031 — 200 O250Se O20052 MSG1: ‘ASCIZ <CRLF>"*** END-OF-TEST xs 
2716 013036 047105 O26S04 043117 
2717 013044 052055 051505 20124 
2718 013052 ces0S2 00052 ; Ss 
2719 013056 OS1600 043117 020124 MSG2: .ASCIZ <CRLF>"SOFT ERRORS=" 
2720 013064 051105 O47S22 05iSe2 
2721 013072 000075 p s 
e722 013074 044200 051101 20104 MSG3: .ASCIZ <CRLF)"HARD ERRORS= 
2723 013102 051105 047522 osisee 
2724 013110 00075 ; . 
2765 13112 041200 052131 OSiSOS MSGY: .ASCIZ <CRLF>"BYTES READ= 
e726 013120 OS1049 O40505 36504 
2727 13126 O00 


: 


t 

TAl1 DATA RELIABILITY. MAINDEC-11-DZTAE-C MACYI1 27(1006) 17-MAR-77 14:55 PAGE £3 
DZTAEC.P11 | 17-MAR-77 14:Se ASCII MESSAGES 

2728 013127 200 OS4SO2 042524 MSGS: .ASCIZ <CRLF>“BYTES WRITTEN=" 
Pe We me Ble iE 

731 013147 o40524 MSG: © .ASCIZ <CRLF>"TAPE PASSES=" 
$38 13194 osobsa Geis01 buses3 

2733 013162 036523 000 
2734 O13165 200 OM4SO6 042514 MSG7: .ASCIZ <CRLF>"FILES/PASS=" 
2735 013172 027523 40520 051523 

2736 013200 000075 es. 
2737 013202 041200 047514 OYSS03 MSG8: .ASCIZ <CRLF>“BLOCKS/FILE= 
2738 013210 027523 044506 042514 

9739 013216 000075 Sam. 

2740 013220 O40440 O42116 O00 MSG9: .ASCIZ e 
2741 013225 O44S27 O46114 MSGiO: ‘:ASCIZ “ WILL BE TESTED"<CRLF) 
2742 013232 O41040 P0105 o425°4 

2743 013240 052123 O42105 oo02 
2744 013246 o2 047505 MSGI: .ASCIZ “x#* FORMAT *¥# 
2745 013254 O46522 052101 25040 

2746 013262 0 
2747 013065 O52 OS1040 MSG12: .ASCIZ "xe READ xe" 
2748 013272 O40S05 020104 Oo20040 

2749 013300 52 
2750 013304 Q20052 OS1127 MSG13: .ASCIZ “se* WRITE #42" 
2751 O13312 O52111 2010S oeS040 

2752 013320 000 

2753 013323 O40 O00040 MSGIY: .ASCIZ “ " 

2754 01332 O42040 O44S22 O42526 MSGIS: ‘ASCIZ “™ DRIVE “ 

2755 013334 OO0040 . 
erst 013336 042200 O44S22 04252 MSGDRV: .ASCIZ <CRLF>"DRIVE(S)? 
2757 13344 OS14SO 037451 Oo0O40 ‘ 

2758 Ol 041501 037523 MSGASK: .ASCIZ <CRLF>"TACS? 

2753 013360, 900 : 
2760 013361 200 O4252 OS2103 MSGVEC: .ASCIZ <CRLF>"VECTOR? 

2761 013366 051117 000077 . 
2762 013372 050200 O44S22 OS1117 MSGPRI: .ASCIZ <CRLF>"PRIORITY?™ 
2763 O13400 OS2i11 637531 — O00 z 

e764 013405 040524 051503 NMTACS: .ASCIZ <CRLF)“TACS= 

2766 013414 OS2040 042101 036502 MTADB: .ASCIZ / TADB=/ 

2767 13422 

2768 013423 O40 OS3040 O4ISOS MTAVEC: .ASCIZ “ VECTORS" 

2763 013430 047524 036522 000 

2770 013435 — O40 OSOO4C O44See MTAPRI: .ASCIZ " PRIORITY=" 

2771 O13442 OS1117 O52111 036531 

2772 O134S0 O00 

2773 013451 200 O4SS17 O00077 MSGOK: .ASCIZ <CRLF>"OK?™ 

2774 O13456 O42531 100123 O00 MYES: ‘ASCIZ “YES"<CRLF> 

2775 013464 EVEN 

2777 .SBTTL READ AND WRITE BUFFER 
2779 013464 902004 BUFFER: .BLKB 1028. 

e7ec 015470 LASTADDRESS= 

2782 p00001 END 


weum< 


TAlL DATA wag SM 
DZTAEC.P11 77 1 


patet ttt 
BURL 


oO 
wo 


WOMWMODMOMDWMOMWMMMWMOMMMMWMMMMM 
eee leer eee eee el ee ee) eae ee ee 
W£WwM-O 


cL. ERR 


oo 
001312 
001305 


000014 


ocS7 le 


oe 11-DZTAE-C 
4:Se 


21178 
rene 


MACY11 27( 1006) 
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713 


775 
2197 


2195 


1650 
953 


1S4S* 


1688 


1163 


17-MAR-77 


2195 


2197 


12008 


2197 


14:55 PAGE 6S 


TAll DATA RELIABILITY 
17-MAR-77 14:52 


DZTAEC.P11 
CNTHRD OO6606 
CNTSFT 006550 
C = 00001 
CRCERR= 040000 
CRLF = 000200 
CSRERR 005536 
DATCMP 006356 
el = 177570 
l 12052 
DFe 12062 
DH1 012535 
DHi01 012750 
DH2 012633 
DH201 13011 
DH20e 913026 
DISPLA O0114e 
DISPRE 000174 
DN = 000001 
DOFUN 07044 
. DRVKEY 9001252 
DRVYPNT 001256 
DSWR = 1775 
Tl 011770 
DT101 Ole026 
Te OleOle 
DT2e01 012040 
OT2e02e Ol12e0%6 
EMTVEC= 000030 
EM1 012244 
pri Rts’ e 
Fries} Bisse 
EM104 012363 
EM105 0Q1240e2 
EMi06 O12417 
EM107 Q12441 
EM2 12257 
EMeOl  Ole463 
EMe0e Ole5ie2 
EOTS 00lele 
EREXT1 O0SSe6 
EREXTe 005530 
ERROR = 
ERR 005320 
ERROR] 005376 
ERRORe OO0SSOE 
ERRVEC= 000004 
EXAM 010174 
EXIT 007720 
FGAP = O04000 
FG.ERR O06040 
LE 001304 
FILESZ 001310 


MA 


INDEC-11-D2TAE 


-C 


1261 


494 
1353% 
2611 


690 


495 


1548# 


636# 


1060 
1273 


= 


i 
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500 


2ble 
741 


501 


642s 


1077 
1533 


S06 


2613 
2085 


$07 


132! 


lle? 


27eS 
1024 


27058 


2614 


2090 


2590s 


1175 


2728 
1035 


2104 


13ze4s 


1483 


2731 2734 
iogs 1136 
2108 
13272 
1$3i 1532 


2737 
1147 


1618 


TAL] DATA RELIABILITY 
17-MAR-77 14:52 


OZTAEC.P1l 


M 
MTAVEC 
MABSBG 


006136 
003 


1587 
f 


16118 
8408 


MAINDEC-11-DZTAE-C 


747 


1469 


~_ 


( 
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784 
1914s 
e522 2523 2524 2526 2528 2529 
1768 
1841 1843 1845 1847 184938 
1533% 1S534* 1542% 
1060 1266 1532%  1538% 
1768 
1059 1753 1754 
27538 


2530 


2531 


fu 
an 


Ww 


2 


2S33 


ea 


ft 
TALL DATA RELIABILITY MAINDEC-11-DZTAE-C MACY11 27(1006) 17-MAR-77 14:55 PAGE 68 
DZTAEC.P11 17-MAR-77 14:52 CROSS REFERENCE TABLE -- USER SYMBOLS 
MXBSFG 012121 1457 —s- 26258 
MXREAD 012114 1456 «= be 
MXRWND 012235 1461 obs 
MXSFBG O12213 1460 ©6266 3578 
MXSFFG 012170 1459 = P6338 
MXWFG 012067 1454 26208 
MXWRIT 012106 1455 26238 
mei Bi Shag canes 
ue 
NOTA 007655 shea shee 
NOT8 007670 2096 46. 20998 
NOTLGL 007712 2089 2100 21068 2109 
OFFLIN= 0010 2048 1491 2191 
005702 1512 15208 
ON = 990009 2598% 2601 2605 e606 2607 2608 2619 
PARMBK O0161e2 4198 421 697% 699% 701% 704% 738% 853 gss 864 gee 
889 891 900 402 931 933 1003 1005 1019 1021 1030 
1086 1131 1133 1142 1144 1156 1158 1236 1488 1585* 1650 
PASCNT 001266 3068 749% 777 779% 787% 
PATS 001352 3438 1586 1714 
PATO} OO014le 343 3658 
001422 344 3688 
PATIO 1532 353 3958 
11 c0154e 354 3988 
PAaTl2 001552 355 4018 
PATI3 001562 356 404 # 
PAT14 001572 357 4078 
PATIS 001602 358 4108 
PAaT2 001432 345 3718 
PAaT2  OO144e 346 3748 
PATY  O014Se 347 3778 
PATS 001462 348 3808 
PATE 001472 349 3838 
PAT? 001502 350 3868 
PAT8 01512 351 3898 
T 001522 352 3328 
PIRQ 177772 90% 
PIRQVE= 000240 1848 
PRO = 107% 
PRi = OOO040 108% 
PR2 = 000100 109s 
PR3 = 000140 1108 
PRY = 000200 lils 
PRS = 000240 lies 
PRE = 000300 1138 
PR7 = 000340 1148 
PS _= 177776 87% rhs] Su7# a! “ i 
PSCNTL 001270 3g74 747% 74B% 777 780% 781% 782 794% 725% 733 
= a 
= 00 


: 562% 5634 eagt 2539% 2548* esse 2566%  2567% 


T=1 
ROTRYS O0lec4 1751#% 753% 
ROIPAS O01276 


TA11 DATA ee ar? | 


DZTAEC.P1 
RD2PAS 001302 
READ 006732 
READON 
READR 007140 
READY = 
RESREG= 104413 
RESVEC= 000010 
REWIND 006756 
RWDONE 007144 
RWILBS 007150 
SAVREG= 10441e 
006220 
SETUPH 006072 
006752 
006746 
COFTNM 001206 
STACK = 001100 
STKLMT= 177774 
SWR 001140 
SWREG 000176 
SWO = OO0001 
SWwOO = 000001 
, SWOl = 000002 
SWO2 = OO00004 
SWO3 = 000010 
SWO4 = 000020 
SWOS = O00040 
SWO6B = 000100 
SWO7 = 000200 
SWOB = 000400 
SWOS = 001000 
SWi = Q00002 
SWi0 = 002000 
SW1i = 004000 
SWi2 = 010000 
SW13 = 020000 
SWi4 = 040000 
SWiS = 100000 
SWe = Y0o00CY 
_ $W3 = 000010 
SW4Y = 000020 
SWS = 000040 
SWE = 000100 
SW7 ©= 000200 
SWB = 000400 
SWS = 001900 
SYNCK 4 
TACSL 001240 
TADBL ‘0le4e 
TAPRIO 001250 
TAVEC O001244 
TBITVE= 000014 
TIMERR= 002000 


TKVEC = COO0ED 


311% 


ba a bm be he 
WWU) 5 PoPrr 

NOOO 
St St St 46 St SS SE St OF SS 


MAINDEC-11-DZTAE-C 
aise CROSS REFERENCE TABLE -- USER SYMBOLS 


782 
1031 
7 


S41 
1499 


rn et ee eee --- - a 


4 


t 
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18388 
9898 990 


1132 1237 1848s 


16458 

15808 

732 1241 1750 1754 1755* 

1299 

570% S72 578% 592 774 1203 1281 


2197 2284 e321% 2546 2559# 
sve: Jews 2284 2297 


1203 
1281 


708 
18st 1867* 1879 2le4e 2149 2182 2593 
1898 elebe 2152 


58 
652% 653% 2133 2135% 2155 


rm 
_ 


1285 


1316 


1354 


1361 


TAl1 DATA RELIABILITY 


DZTAEC.P11 


TMPSWR= 


nee 
TPVEC 


3333 


e 


238 


88 
Zz 
x4 
oe 
co 


8 
ae 
3% 


160000 


ues 


0000 
000010 
04 


17-MAR-77 14:Se 


MAINDEC-11-DZTAE-C 


842 
S61* 


992 


939% 


1120 


-* 


( 
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20678 
3 991 993 1119 llel 1228 1229 

1 1272 1277 1356 1364 1379 1397 
Wee ay 469 201 2067 2072 2084 

154 1S 160 2lb 2169 2238 2295 
2394 2398 2473 eS2ls# 2568 
2156 2159 2298 2S2e8 
1584# 

S65 


1364 1377 1379 1399 1403 2239 2274 
1993 


2323 


TAL! DATA RELIABILITY 


DZTAEC.P11 


Ege BONNi8 


Sir es at ay 


S$HIOCT 007562 


S-- *8888ses 
he be ee 


za 
tats 
et ey at ant a4 —— 
pee 
—ou 
S£=8 


Buen 
zee 


| SROCHR 011002 


—— 


-C 


MACY11 27(1006) 
CROSS REFERENCE TABLE -- 
883 89S 3906 
1148 1l6e 1202 
1227 
1332% 1336 1351 
1359* 1360 1376 
1376 
2274 
2583 
1724% 2583 
25738 
2413 
729 1360* 1377 
1377 2274 2398 
840* 87S+# 990% 
1331 1366 2227 
2274 
24878 
2449 24S2ex  P2463% 
13338 
l22el* 1300 
2566 
2106 2167 2274 
168S* 1731% 2583 
1686 1732% 2583 
eSSb* 2557% 25758 
le62 1269 1274 


17-MAR-77 14:55 PAGE 71 
USER SYMBOLS 


914 925 937 1009 1025 1036 i043 
1204 12178 2571 
1376 


2583 2587 2590 2593 es9s 


383 
2407 
1018 i02e9% 1118% 1154 1331% 1334 1336 


24894 


este 2391 2407 


2587 2590 
2587 2590 
19918 


10S4 


EN ee a ee me 


08 


TALL DATA RELIABILITY MAINDEC-11-DZTAE-C MACY11 27(1006) 17-MAR-77 14:SS PAGE 72 
DZTAEC.P1l 17-MAR-77 14:Se CROSS REFERENCE TABLE -- USER SYMBOLS 
SSETUP= 000137 5378 sss 556 Ss8 566 S62 S64 S65 S86 589 12193 1315S 1350 
1369 1371 2279 2413 
$STUP = 177777 5378 
007422 1243 1248 1253 1258 1263 1270 1275 2008s 
SSVLAD 005030 1325 13308 
= 160000 28 le 61 63 64 6S 66 278 56s Ss l2il2 1220 
1232 1298 1300 1309 1310 1311 1316 1328 1330 i332 13368 1342 1343 
1344 1345S 1346 i3S4 1361 1366 1376 1376 13778 2572 
SSWRMK= 000000 1311 
KB OO1146 e618 2277 2288 2305 2359 2365S 
$TKS 001144 2608 ee7 2286 2302 e3e6* 2357 2363 zt 
STMPO § 3 ©: 001172 . 2748 774% 775 788% 7390 731 1487% 1526 1536 1560 1687% 2587 2590 
STMP1 001174 2758 
STMPe 001176 e768 1688* 2587 
ST™™P3 001200 277% 
STN = Q000001 es le 
097302 1938 1939 19598 
STPB 001152 2638 2263% e227 
STPFLG 001157 e678 8 eeei 2274 
TPS 001150 ebes 2261 2274 
TRAP 911522 S60 24988 
STRAP2 011544 25098 2520 - 
_ STRP = 14 eSise eSees e2eSese e2Se%¥s 25258 2526 25278 2528 S298 25308 eS2ls 2328 25338 
25348 
STRPAD 011556 2503 25208 
STSTNM 001102 2408 1219% i308 1330% 1333 1336 1383 1376 
STTYIN 011230 2384 2385 2402 24068 
STYPBN= ##222% U 2SeS 
STYPDOS= #x2ee# U 
STYPE Ol 22218 2513 2521 
| STYPEC 010450 2e4e2 2249 2256 eeblae e262 2328 
: STYPEX Q10S16 e267 2269 227e8 
$TYPOC 011320 C4438 222 
STYPON 011334 e442 C44Se 2524 
STYPOS 011274 24388 #2523 
S 004772 13198 
| $$GET4= 000001 l2328 12908 
| $OFILL 011517 2439% e2443% 2453 24888 
| S4OCAT= #44844 U 1316 1363 
. = 015470 218s eces 237% 281 SS3 S&S 600% 1300 1302 1336 1376 1377 19798 
2274 2277 24068 2407 2413 2550 2s74 27758 8027798 862780 
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OZTAEC.P11 

BGOTO elbs 
CALL elbs 
COMMEN 18s 
DECBLK elbe 
DECFIL elbs 
ENDCOM 18S8 
EOPCOD 2lbs 
ERROR 798 
_ ESCAPE 18S8 
GETPRI 18S 
GETSWR 18S8 
INCBLK elses 
INCFIL 2lbs 
JGOTO elbs 
MORE TA elbs 
T 1858 
NEWTST 18S8 
OUT eles 
OUTSGL elbe 
1858 

PUSH 1858 
REMARK cls 

1044 

REPORT 18S 
OPE 508 
TBLK 2los 
SETFIL eles 
TPRI 1858 
SETTRA 25138 
SETUP 1858 
SKIP 1858 
SL 1858 

88S 

1010 

083 

1409 

SPACE 1858 

STARS le 

676 

1305S 

1920 

2536 

SWRSU 1858 
TRMTRP 251348 
TYPBIN 185% 
T 18S 
T 1858 
TY 1858 
TYPOCS 1858 
TYPOCT 1858 
TYPTXT 1858 
$SC 23i8 
SSCMTM e238 
$SESCA 1858 
SSNEWT 1gSs 
S$SET 25i3s 


17-MAR-77 14 
1S03 
8S3 863 
1539 
1528 
1232 
64S 708 
S898 
943 1063 
S46 1075 
789 
282 
1251 1256 
1241 i246 
1628 1812 
1611 1792 
850 869 
10S6 1066 
907 1055 
844 951 
847 997 
e 2523 
548 
318 339 
887 896 
10le 1015 
1092 1128 
1429 1463 
185% 229 
717 727 
1338 1377 
1982 2000 
2eSSe 2579 
S66 
582 
1419 1431 
270 271 
274 27s 
eSe2 eS23 


MAINDEC-11-D2TAE-C 
:5e 


877 


1467 


e7e 
276 


es24 


2145 


273 
e77 


e526 


MACY11_ 27( 1006) 


300 


1042 


21S2 


2528 


931 


1049 


2155 


eSe9 


C 


a a eee ce 
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CROSS REFERENCE TABLE -- MACRO NAMES 


1003 


1520 


2158 


2530 


1019 


1523 


e297 


2531 


1030 


1SS0 


940 
1278 


2S3e 


1084 


1553 


1000 


2533 


1131 


1556 


10i0 


1141 


iss9 


igis 


1155 


1565 


i026 


1037 


DOS 
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DZTAEC.P1i 17-MAR-77 14:S2 CROSS REFERENCE TABLE -- MACRO NAMES 
SSSKIP 18Ss8 
.EQUAT es 7S : 
. HEADE es 
. SETUP es $37 
. SIURHI rs. 7 
. SARLO 678 
SCATC es 2lb 
SCMTA 28 231 
28 1918 
SEOP es 1207 
0 ee 133 
SPOWE ee 2534 
$RDOC ee 202! 
AD ee 2274 
§SAVE ce 1774 
g ee 1980 
$SCOP ee 1303 
$SPAC ee 
§ ee 1998 
STRAP ee 2490 
STYPE ee 2204 
$TYPC ee 2413 


. ABS. 015470 ooo 

ERRORS DETECTED: 0 

DEFAULT GLOBALS GENERATED: 0 

DSKZ: DZTAEC. BIN, DSKZ: OZTAEC.LST/“CRFSOL=DSKM:DZTAEC.P11 
RUN-TIME: 15 8 .9 SECONDS 


RUN-TIME RATIO: 108/25=4.3 
CORE USED: 25K (50 PAGES) 


